Med Microsoft Visual Basic ladda upp filer till en FTP-Server (5 / 5 steg)
Steg 5: Skriptet utan kommentaren
"Din VB innan FTP-uppladdning
Dim MyDirectory som sträng
Dim File1 AsInteger
Dim fil2 som heltal
File1 = FreeFile
File2 = FreeFile
"Ändra detta till en katalog som du väljer
MyDirectory = "C:\Temp\FTPFiles"
"Döda befintliga .out filer
Om Dir (MyDirectory & ".out") <> "" sedan döda (MyDirectory & ".out")
Öppna MyDirectory & ".txt" för utdata som #File1
' Lägga din FTP-serveradress här
Skriva ut #File1, "öppna ftp.myserver.com"
"Sätta ditt användarnamn här
Skriva ut #File1, "my_username"
"Sätta ditt lösenord här
Skriva ut #File1, "my_password"
"Ändra din avlägsen katalog. Utelämna denna linje om roten är bra.
Skriva ut #File1 "cd my/fjärr/katalog /"
"Lägga till din lista över filer här med put eller mput med jokertecken om det behövs
Skriva ut #File1, "Lägg C:/MyFiles/thisfile1.png"
Skriva ut #File1, "Lägg C:/MyFiles/thisfile2.png"
Skriva ut #File1, "bye"
Nära #File1
Öppna MyDirectory & "bat" för utdata som #File2
Skriv ut #File2, "ftp - s:" & MyDirectory & ".txt"
Skriva ut #File2, "Echo""komplett" ">" & MyDirectory & ".out"
Nära #File2
"Köra bat-filen
Shell (MyDirectory och "bat"), vbNormalFocus
Göra medan Dir (MyDirectory & ".out") = ""
DoEvents
Loop
Application.Wait (nu + TIDVÄRDE ("0: 00:03"))
"Ta bort batch-filer
Om Dir (MyDirectory & "bat") <> "" sedan döda (MyDirectory & "bat")
Om Dir (MyDirectory & ".out") <> "" sedan döda (MyDirectory & ".out")
Om Dir (MyDirectory & ".txt") <> "" sedan döda (MyDirectory & ".txt")
"Din VB efter uppladdningen