Met behulp van Microsoft Visual Basic bestanden te uploaden naar een FTP-Server (5 / 5 stap)

Stap 5: Script zonder de commentaar

' Uw VB vóór de FTP upload Dim MyDirectory als String Dim File1 AsIntegerDim File2 als IntegerFile1 = FreeFileFile2 = FreeFile ' dit wijzigen in een map van uw keuze ‘Your VB before the FTP upload Dim MyDirectory As String Dim File1 AsIntegerDim File2 As IntegerFile1 = FreeFileFile2 = FreeFile ‘Change this to a directory of your choosing MyDirectory = “C:\Temp\FTPFiles" ‘Kill existing .out filesIf Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out") Open MyDirectory & ".txt" For Output As #File1 ‘Put your ftp server address herePrint #File1, "open ftp.myserver.com" ‘Put your user name herePrint #File1, “my_username” ‘Put your password herePrint #File1, “my_password” ‘Change your remote directory. Omit this line if root is fine.Print #File1 “cd my/remote/directory/” ‘Add your list of files here using put or mput with wildcard if neededPrint #File1, “put C:/MyFiles/thisfile1.png”Print #File1, “put C:/MyFiles/thisfile2.png” Print #File1, "bye"Close #File1 Open MyDirectory & ".bat" For Output As #File2Print #File2, "ftp -s:" & MyDirectory & ".txt"Print #File2, "Echo ""Complete"" > " & MyDirectory & ".out" Close #File2 ‘Execute the bat fileShell (MyDirectory & ".bat"), vbNormalFocus Do While Dir(MyDirectory & ".out") = "" DoEvents Loop Application.Wait (Now + TimeValue("0:00:03")) ‘Delete the batch filesIf Dir(MyDirectory & ".bat") <> "" Then Kill (MyDirectory & ".bat")If Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out")If Dir(MyDirectory & ".txt") <> "" Then Kill (MyDirectory & ".txt") ‘Your VB after the upload ' Doden van bestaande .out filesIf Dir (MyDirectory & ".out") <> "" dan doden (MyDirectory & ".out")' Zet uw FTP-server adres herePrint #File1, "open ftp.myserver.com" "zetten van uw gebruiker naam herePrint #File1,"my_username"' zet uw wachtwoord herePrint #File1,"mijn_wachtwoord"' wijzigen van uw externe map. Weglaten van deze regel als wortel prima is. Afdrukken van #File1 "cd mijn afstandsbediening/map / /" ' toevoegen van uw lijst van de bestanden hier zetten of met mput jokertekens als neededPrint #File1, "C:/MyFiles/thisfile1.png"Print #File1, "zet C:/MyFiles/thisfile2.png" zetten Print #File1, "bye" Close #File1 Open MyDirectory & "bat" voor uitvoer als #File2Print #File2, "ftp - s:" & MyDirectory & ".txt" afdrukken #File2, "Echo""Complete" ">" & MyDirectory & ".out" sluit #File2 ' uitvoeren van de vleermuis-fileShell (MyDirectory & "bat") , vbNormalFocus doen terwijl Dir(MyDirectory & ".out") = "" DoEvents lus

Gerelateerde Artikelen

Creëren van uw eerste C++-programma met behulp van de Visual Studio Express IDE

Creëren van uw eerste C++-programma met behulp van de Visual Studio Express IDE

IntroductieHet gebruik van computerprogramma's is van invloed op ons dagelijks leven. Computers, smartphones en tablets worden allemaal uitgevoerd door een programma iemand gemaakt. Deze programma's variëren in moeilijkheid afhankelijk van het doel v
Hoe "Antieke" foto's met behulp van Microsoft PhotoDraw

Hoe "Antieke" foto's met behulp van Microsoft PhotoDraw

Halloween seizoen komt snel dichterbij en, als een fervent thuis haunter, ben ik op het werk op mijn nieuwste projecten.  Dit jaar ik was op zoek naar een aantal vintage ogende foto's maken, of "Boulder" als je wil.  Ik had soortgelijke foto's a
Vaatwasser magneet borden met Scandinavische afdrukken met behulp van Microsoft Word

Vaatwasser magneet borden met Scandinavische afdrukken met behulp van Microsoft Word

Heb je ooit in werking gesteld de volgende scenario's?Voert u de vaatwasser met een paar keukengerei daarin. Wanneer het heeft gedaan, je lui en vergeet te leeg uit. Vervolgens genereert u vuil vaatwerk. Je stok de vuile vaat in de vaatwasser? De vaa
De meest effectieve methode om toegang Yahoo Mail-Account met behulp van Microsoft Outlook

De meest effectieve methode om toegang Yahoo Mail-Account met behulp van Microsoft Outlook

Het artikel is van plan om te schilderen van de strategie om Yahoo! e-mailaccount in Microsoft Outlook. De strategieën die in het artikel afgebeeld zijn eenvoudig en rechts om de datum. Het is echter nog steeds gesuggereerd dat klanten na de richting
Het ontwerpen van een formulier vullen database met behulp van Microsoft access.

Het ontwerpen van een formulier vullen database met behulp van Microsoft access.

We moeten allemaal te vullen een formulier in ons werk van dag tot dag, maar het is beetje moeilijk in te vullen een formulier dagelijks als u bent een zakendoen of dienstverlening. Als u wilt een formulier invullen met dezelfde indeling als bank sli
Doodle: A Bonsai, Monkey & verf ezel. Met behulp van Microsoft Paint (Video)

Doodle: A Bonsai, Monkey & verf ezel. Met behulp van Microsoft Paint (Video)

Hallo, ben ik Nami Mura ik ben dol op doodle. Ik ben nieuw op YouTube kunt u:Abonneren op mijn kanaal meer doodle en leuke feiten te komen!Stap 1: Hoe doodle van een Bonsai boomTeken een bochtige lijn voor de bast van de boom. Klik op de tab penselen
Eenvoudige Object ontwijkt robot met behulp van de Actobotics Runt Rover Peewee chassis en een Arduino

Eenvoudige Object ontwijkt robot met behulp van de Actobotics Runt Rover Peewee chassis en een Arduino

Er zijn vele manieren om te bouwen van een robot, vanuit het niets een kit, een vooraf gebouwde systeem of een combinatie van een van deze methoden. Het pad dat zullen we hier zal worden meestal uit een kit en andere items zoals een Arduino controlle
Met behulp van 3d scannen, modelleren en printen nauwkeurig opnieuw een oude Romeinse plaat

Met behulp van 3d scannen, modelleren en printen nauwkeurig opnieuw een oude Romeinse plaat

dit is een project dat ik aan de laatste gewerkt heb die we uiteindelijk van plan om opnieuw een oude Romeinse plaat op nauwkeurige schaal.Het project startte als een poging om te verifiëren of of niet een fragment van een Romeinse plaat kwam uit een
Hoe zet ik automatisch woorden uit kolom uitlijnen met behulp van Microsoft Word

Hoe zet ik automatisch woorden uit kolom uitlijnen met behulp van Microsoft Word

het gebeurt soms dat u hicave om te dragen tijdens het gebruik van Microsoft Word gekopieerd tabel naar normale regel - u wilt dat uw woorden in een lijn gescheiden door laten we zeggen van komma's.Hoewel deze procedure veel van klikken en handmatig
Met behulp van de Arduino Basics - potentiometers - ik maakte het op TechShop

Met behulp van de Arduino Basics - potentiometers - ik maakte het op TechShop

Potentiometers hebben een veel gebruikt in de elektronica. Ze zijn in wezen een variabele weerstand. Combineer dit met het feit dat een Arduino staat analoge spanningen te lezen is, dit kan een potentiometer omzetten in iets als een continue snelheid
Met behulp van uw Bluetooth ingeschakeld Sony Ericsson telefoon naar Control Your Computer

Met behulp van uw Bluetooth ingeschakeld Sony Ericsson telefoon naar Control Your Computer

ik heb gelezen op instructables voor een tijdje nu, en ik heb altijd al wilde doen sommige van de dingen dat de mensen hebben geschreven over, maar heb mezelf kijken naar dingen die moeilijk te doen omdat ze zijn echt moeilijk om te doen, of de dinge
Maken van een Brochure met behulp van Microsoft Office

Maken van een Brochure met behulp van Microsoft Office

deze tutorial zal uitleggen hoe een professionele brochure met Microsoft Publisher version 2007 maken.De volgende zijn schriftelijke instructies die belangrijke stappen zal benadrukken.Ook vindt u een video tutorial hieronder. Het videogedeelte is me
Maak een SQL-Database met behulp van Visual Studio

Maak een SQL-Database met behulp van Visual Studio

Het maken van een SQL-DatabaseMet behulp van Windows virtuele BasicIntroDe manier waarop we toegang en behandelen van informatie is ontwikkeld en geëvolueerd en als zodanig de databases belangrijker zijn geworden. Databases zijn een complexe en ingew
LED is gecontroleerd met behulp van de C#-toepassing en Arduino

LED is gecontroleerd met behulp van de C#-toepassing en Arduino

Video van dit project werken...Stap 1: Verzamel al het materiaal. 1) 6 X LED's2) 6 x 1 K Ohm weerstanden (kunt u 10 K Ohm weerstand voor DIM licht)3) jumper draden4) Arduino Microcontroller5) breadboard6) een PC met Microsoft Visual Studio is geïnsta