hur man ftp en fil med vbs

VBS eller Visual Basic Script är ett skriptspråk som kan användas för klientsidan webbutveckling i Internet Explorer , serversidan webbutveckling med klassiska Active Server Pages ( ASP ) eller skapa kommandofiler körs från kommandoraden i Windows Script Host . VBScript innehåller ingen inbyggd mekanism för att skicka filer via FTP , men språket kan använda Windows-gränssnittet som har inbyggt FTP kapacitet .
1 .
Skapa en ny textfil med önskad text editor som heter ” sendftp . ”

Exit Function

End If

ElseIf Len ( localFilePath )=0 Eller Inte filsystem . FileExists ( localFilePath ) Sen

”Inget att ladda upp

SendFTP=” Fel : . Arkiv kunde inte hittas ”
<; br /> Exit Function

End If

<; br /> Ange filsystem=CreateObject ( ”Scripting. FileSystemObject”)

Set shell=CreateObject ( ” wscript . Shell ” )

” bygga temp fil med skript för Shell att utföra

cmdScript=cmdScript ” USER ” ftpUserName vbCrLf

cmdScript=cmdScript ftpPassword vbCrLf
<; br /> cmdScript=cmdScript ” cd ” remotePath vbCrLf

cmdScript=cmdScript ” binär ” vbCrLf

cmdScript=cmdScript ” prompt n ” vbCrLf

cmdScript=cmdScript ” sätta ” localFilePath vbCrLf

cmdScript=cmdScript ” sluta ” vbCrLf ” quit ” vbCrLf ” quit ” vbCrLf

temp=skal . ExpandEnvironmentStrings ( ” % TEMP % ” )

tempfile=temp ” \ ” fileSystem. GetTempName

sFTPResults=temp ” \ ” fileSystem. GetTempName

Set script=fileSystem. CreateTextFile ( tempfile , sant)

script. WriteLine ( cmdScript )

script. Close

Set manus=ingenting

;

” exekvera shell script

skal . Kör ” % comspec % /c FTP-n-s : ” tempfile ”” siteURI _

”> ” sFTPResults , 0 , true

wscript. Sleep 750

” bekräfta ladda

Set fFTPResults=fileSystem. OpenTextFile ( sFTPResults , 1, 0 , -2 )

sResults=fFTPResults. ReadAll
;
fFTPResults. Close

” städa upp

filsystem . DeleteFile ( tempfile )

fileSystem. DeleteFile ( sFTPResults )

Set filsystem=Nothing <; br />
Ställ shell=Nothing

Om InStr ( sResults , ”Transfer complete. ” ) > 0 Then

SendFTP=” Success ”

ElseIf InStr ( sResults , ” Fil hittades inte ” ) > 0 Then

SendFTP=” Fel : Filen hittades inte ”

ElseIf InStr ( sResults , ” inte kan logga in” ) > 0 Then

SendFTP=” Fel : Inloggning misslyckades ”

Else

. SendFTP=” Fel : Ett okänt fel uppstod . ”

End If

End Function <; br />

” ersätter ditt användarnamn , lösenord , site adress , sökvägen till filen till ftp , ftp stig här

output. writeline SendFTP ( ” MyUserName ” , ” lösenord ” , ” 255. 255. 255. 255 ” , ” C: \ MinFil . txt ”,””)

3 .
kod använder infödda Windows-gränssnittet FTP krävs för att sända en fil . Om filen har skickats , ” Success ” visas . Om FTP misslyckas , visas ett meddelande som anger orsaken till misslyckandet visas . Spara . fil
4
Öppna Kommandotolken och ändra katalog till den plats där texten finns . Exempel:

cd C : \ scripts

I exemplet används kommandot Ändra katalogen och ändringar i ” manus ”katalogen .
5 .
köra skriptet med hjälp av Windows Script Host kommandot cscript linje verktyg . Exempel :

cscript /sendftp. vbs nologo