Stap 4: Uitvoeren en opruimen
Nu hebben we al onze ftp geschreven instructies en onze opdrachtregel-bestanden opgeslagen, wij zullen dit bat-bestand aanroepen en draaien met de onderstaande code.
Hier kunt u vervangen de vbNormalFocus vbHide als u wenst om het uploadvenster te verbergen, maar het is aangeraden om te houden in het oog om te zien wat de status van de overdracht
Shell (MyDirectory & ".bat"), vbNormalFocus
Nu zullen we VB te wachten voor onze uploads te voltooien. Wij doen dit door te vertellen VB op zoek naar een .out-bestand in de directory, die alleen worden aangemaakt nadat het BAT-bestand is voltooid.
Do While Dir(MyDirectory & ".out") = "" DoEventsLoop
We zullen vervolgens een vertraging toevoegen aan VB om ons voldoende tijd om te zien het voltooide bericht in de command interface.
Application.Wait (Now + TimeValue("0:00:03")) Nadat alle bestanden zijn geüpload, en VB kan blijven, zullen wij verwijderen alle bestanden gemaakt voor het uploaden.
If Dir(MyDirectory & ".bat") <> "" Then Kill (MyDirectory & ".bat") If Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out")If Dir(MyDirectory & ".txt") <> "" Then Kill (MyDirectory & ".txt")
En thats it die zijn we al klaar. U kunt uw VB-proces doorgaan. Natuurlijk tijdens deze code die kunt u toepassen vele VB trucs voor het genereren van uw opdrachten dus voel je vrij om creatief. Als u zien van de hele code wilt, check out de volgende stap.
