hvordan man kan ftp en fil ved hjælp VBS

Indlæg af Dorte Søndergaard Pe     opdateret: 2011-10-13

VBS eller Visual Basic Script er et scriptsprog , der kan bruges til klientsiden webudvikling i Internet Explorer , server side webudvikling med klassiske Active Server Pages ( ASP ) , eller oprette batch -filer køres fra kommandolinjen i Windows Script Host . VBScript indeholder ikke en indbygget mekanisme til at sende filer via FTP , men sproget kan udnytte Windows Shell , der har indfødte FTP kapacitet

Du skal bruge: .
Tekst eller SQL editor

.
1 .
Opret en ny tekstfil med din ønskede tekst editor der hedder " sendftp . "

Exit Function

End If

ElseIf Len ( localFilePath )=0 Eller Ikke filsystem . FileExists ( localFilePath ) Så

' ikke noget at uploade

SendFTP=" Fejl : . fil kunne ikke være placeret "
<; br /> Afslut Funktion

End If




<; br /> Set filsystem=CreateObject ( " Scripting. FileSystemObject " )

Set shell=CreateObject ( " WScript . Shell " )





' bygge temp fil med script for Shell at udføre

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ætte " localFilePath vbcrlf

cmdScript=cmdScript " quit " vbcrlf " quit " vbcrlf " quit " vbcrlf





temp=shell . ExpandEnvironmentStrings ( " % TEMP % " )

tempfile=temp " \ " fileSystem. GetTempName

sFTPResults=temp " \ " fileSystem. GetTempName



Set script=fileSystem. CreateTextFile ( tempfile , True )

script. WriteLine ( cmdScript )

script. Close

Set script=Nothing

;

'execute shell script

shell . Kør " % comspec % /c FTP-n-s : " tempfile " " siteURI _

" > " sFTPResults , 0 , TRUE



Wscript. Sleep 750



' bekræfte uploade

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

sResults=fFTPResults. ReadAll
;
fFTPResults. Close



' rydde op

filsystem . DeleteFile ( tempfile )

fileSystem. DeleteFile ( sFTPResults )



Set filsystem=Nothing <; br />
Set shell=Nothing





Hvis Instr ( sResults , "Overførsel fuldført. " ) > 0 Then

SendFTP=" Succes "

ElseIf Instr ( sResults , " Fil ikke fundet " ) > 0 Then

SendFTP=" Fejl : fil ikke fundet "

ElseIf Instr ( sResults , " kan ikke logge ind" ) > 0 Then

SendFTP=" Fejl : Log ind mislykkedes "

Else

. SendFTP=" Fejl : En ukendt fejl opstod . "

End If



End Function <; br />


»erstatter dit brugernavn , adgangskode , site adresse , sti til fil til ftp , ftp sti her

output. writeline SendFTP ( " myUserName " , "password " , " 255. 255. 255. 255 " , " C : \ myfile . txt ","")






3 .
Koden benytter de indfødte Windows Shell FTP mulighed for at sende en fil . Hvis fil er blevet sendt , " Succes " vises . Hvis FTP mislykkes , er en meddelelse, der angiver årsagen til fiasko vises . Gem . filen
4
Åbn en kommandoprompt og ændre mapper til det sted, hvor teksten er placeret . Eksempel:



cd C : \ scripts

I eksemplet bruger skifte mappe kommando og ændringer af " scripts " bibliotek .
5 .
Udfør scriptet ved hjælp af Windows Script Host kommandolinje værktøj cscript . Eksempel :



cscript /nologo sendftp. vbs


Previous:hvordan du ændrer tekstboksen tekst uden at udløse hændelser i Visual Basic Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change