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
Previous:nothing Next:rensar en webbläsare historia i asp net