Datei auf FTP

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub upload_andere_Datei_in_Untervezeichnis()
Dim fs, a, dRetVal
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\script.dat", True)
With a
.WriteLine "xx" 'username einsetzen
.WriteLine "xx" 'password einsetzen
.WriteLine "cd/xy/" 'Verzeichniswechsel
.WriteLine "binary" ' Übertragungsmodus auf binär stellen
.WriteLine "C:\test.txt" 'anzuhängende Datei
.WriteLine "quit"
.Close
End With
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\upload.bat", True)
With a
.WriteLine "Ftp.ch" 'ftp-Server
.Close
End With
dRetVal = Shell("C:\upload.bat", 0) 'upload the file
'dadurch wartet das Makro 5 Sek. mit dem weiterlaufen - dieser Wert kann verändert werden:
Sleep 5000 'damit die Übertragung vor dem Löschen folgender Dateien beendet ist:
Kill "C:\script.dat"
Kill "C:\upload.bat"
End Sub