OPathSettings = CreateUnoService(".PathSettings")ĬreateUnoService(".dialogs.FolderPicker") '''Get the folder of the folder selection dialog''' If lngRetVal = 0 Then DownloadFile = True LngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) Public Function DownloadFile (URL As String, LocalFilename As String) As Boolean Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ ' Open the procedure "urlmon" from Windows API. If DownloadFile(sURL, sPath) = False Then IVar = MsgBox ("The file " & Chr(10) & sPath & Chr(10) & " already exists." & Chr(10) & _ '''Download implementation for Windows system''' Sub Win_Download(sURL As String, sPath As String)
Macro download download#
MsgBox "The download was completed." ,0, "Successful" "Please double check the internet address." ,0, "Error" If Not FileExists(sPath) Then ' Error after 10 seconds If FileExists(sPath) Then Exit For ' wait up to 10 seconds until the download is finished "Should the existing file be replaced?",4,"Error") IVar = MsgBox ("The file " & Chr(10) & sPath & Chr(10) & " exists already." & Chr(10) & _ '''Download implementation for GNU/Linux system''' Sub Linux_Download (sURL As String, sPath As String) MsgBox "The operating system was not detected." ,0 ,"Error" MsgBox "This macro does not work under Mac-OS." ,0 ,"Error" SPath = sPath & "abrechnungs_tool2.1.1.ods" ' please customize MsgBox "You have not selected a proper directory path" ,0 ,"Error" ' Internet address have to be a direct link to the download '''Master subroutine, declares relevant parameters checks OS to call other OS-specific subroutines.'''
Macro download software#
' this program if not, write to the Free Software Foundation, Inc., 59 Temple
Macro download license#
' You should have received a copy of the GNU General Public License along with See the GNU General Public License for more details. ' ANY WARRANTY without even the implied warranty of MERCHANTABILITY or FITNESS ' This program is distributed in the hope that it will be useful, but WITHOUT ' Foundation either version 2 of the License, or (at your option) any later ' the terms of the GNU General Public License as published by the Free Software ' This program is free software you can redistribute it and/or modify it under ' Copyright (c) 2011 Frieder Delor, Mailto: the function "GetPath" is originally from Copyright (c) 2011 Volker Lenhardt The German tool "accounting-tool" will be downloaded then. You can try the actual data out, if you want to test the macro first. The internet address and the file name have to be customized in the declaration part of "DownloadToFile". On Linux, the macro uses wget to download the file while on Windows the macro uses the Windows API function urlmon. It works Linux and Windows, but not on macOS at the moment. This macro downloads a file from a specified internet address to the local computer.
0 kommentar(er)
