Med Microsoft Visual Basic ladda upp filer till en FTP-Server (4 / 5 steg)
Steg 4: Utförande och sanering
Nu har vi skrivit alla vår ftp instruktions och sparat våra kommandoraden filer, vi kommer att åberopa .bat-filen och köra den med den nedan koden.
Här kan du ersätta vbNormalFocus med vbHide om du vill dölja fönstret ladda upp, men det är klokt att hålla den i vyn för att se status för överföring
Shell (MyDirectory och "bat"), vbNormalFocus
Nu berättar vi VB vänta på våra uppladdningar att slutföra. Vi gör detta genom att tala om VB leta efter en .out fil i katalogen, som kommer endast att skapas när den .bat arkivera är klar.
Göra medan Dir (MyDirectory & ".out") = ""
DoEvents
Loop
Sedan lägger vi till en försening VB att ge oss tillräckligt med tid att se det färdiga meddelandet i kommandot gränssnittet.
Application.Wait (nu + TIDVÄRDE ("0: 00:03"))
När alla filer har laddats upp, och VB kan fortsätta, kommer vi ta bort alla filer som skapats för uppladdning.
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")
Och det är det vi är klar. Du kan fortsätta din VB process. Naturligtvis under denna kod som du kan använda många VB knep att generera dina kommandon så känn dig fri att vara kreativ. Om du vill se hela koden, kolla in nästa steg.