ftp upload
16.06.2007 20:26:00
Dieter
ich möchte Dateien auf einen FTP Server in ein unterverzeichnis hochladen.
Sub xlUpLoad()
Dim strTxt As String
strTxt = ActiveWorkbook.FullName
Open "c:\LogIn.txt" For Output As #1
Print #1, "UserName"
Print #1, "Passwort"
Print #1, "cd www"
Print #1, "cd bbs"
Print #1, "cd texte"
Print #1, "binary"
Print #1, "put " & strTxt
Print #1, "quit"
Close
Shell "ftp -s:c:\login.txt ftp.MeinName.de", vbNormalFocus
zu "ftp.MeinName.de" geht das auch gut aber zu ftp.MeinName.de/xyz klappt nichts.
Kann mir jemand sagen was ich am Code ändern muss?
Vielen Dank Dieter