For example, if you want that macro should be run by pressing Ctrl+G, then press G and click OK. Just press any key you want to create as a shortcut key. Step 5: Go to File > Close and Return to the Microsoft Excel menu or press Ctrl+Q.Ī new small window will open then click on Option and another smaller window will open as in the screenshot. Step 4: Go to File > Save menu or press Ctrl+S. 'Pop-up message to show completion of downloading. MySite.DownloadAsync "/HOME/Data_New/", "C:\Source Folder\FTP Files" MySite.DownloadAsync "/HOME/Data_Files/", "C:\Source Folder\FTP Files" 'You can add multiple FTP location as below 'Downloading all files from FTP location to Download Folder (C:\Source Folder\FTP Files\) If Len(Dir( "C:\Source Folder\FTP Files", vbDirectory)) = 0 Then 'It will create a folder if it is not exist 'If you want to delete all files in the folder: Kill "C:\Source Folder\FTP Files\*batch*" 'If you want to delete files containing some text or keywords like "batch": 'If you want to delete a particular extension file like all text files: 'Delete data from Download Folder (C:\Source Folder\FTP Files\) 'You can skip this section if you don’t want to delete old files. UserPassword = InputBox( "Enter Your Password:", "Input Password") UserName = InputBox( "Enter Your User Name:", "Input User Name") '1st is below where it will pop up to enter username and password manually. 'Enter Username and Password – Three different ways. 'It will connect the remote server hostname, protocol, port, etc. Set MySite = CreateObject( "CuteFTPPro.TEConnection") 'This script is created to download files from FTP servers for the CuteFTPPro window application. Set ofso = CreateObject( "Scripting.FileSystemObject") Set fso = CreateObject( "Scripting.FileSystemObject")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |