Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[COLOR=GREEN]' Shell variant
' Requires references to Microsoft Shell Controls and Automation
' This is the upload version (copy a local file to FTP server)[/color]
[COLOR=BLUE]Private Sub Command2_Click()
Dim ftpFolder As Folder
Dim myShell As Shell
Set myShell = New Shell
Set ftpFolder = myShell.NameSpace("ftp://user:password@ftp.site.com")
ftpFolder.CopyHere "c:\test.txt"
End Sub[/color]
[COLOR=green]' Shell variant
' Requires references to Microsoft Shell Controls and Automation
' This is the download version (copy a file from FTP server)[/color]
[COLOR=blue]Private Sub Command2_Click()
Dim ftpFolder As Folder
Dim localfolder As Folder
Dim myShell As Shell
Set myShell = New Shell
Set localfolder = myShell.Namespace("c:\tabulati")
Set ftpFolder = myShell.Namespace("ftp://user:password@ftp.site.com/public/mydir")
localfolder.CopyHere ftpFolder.Items.Item("test.csv")
End Sub[/color]