vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen und Antworten zur vbarchiv.dll
Ordnerfreigabe nach FTP-Upload 
Autor: rettench
Datum: 13.06.07 14:02

Hallo zusammen,
ich habe mir die neueste vbarchiv.dll runtergeladen und habe folgendes Problem:

Nach dem binären übertragen von .txt Dateien auf einem FTP-Server mit ftpPutFile kann ich den Lokalen Ordner von dem die Dateien kopiert wurden nichtmehr löschen!
Das löschen ist erst nach dem Beenden des FTP-Upload-Programmes möglich.
Ich möchte jedoch den Ordner während dem das Programm ausgeführt wird mit RmDir löschen.

Der Source sieht wie folgt aus:

Public Function FTPupload()
 
Private mServer As String
Private mUser As String
Private mPassword As String
Private mSocket As Long
Dim strFTPDir As String
Dim strSourceFile As String
strSourceFile = "c:\temp\test.txt"
strFTPDir  = "ftp...."
 
    mSocket= ftpConnect(mServer, mUser, mPassword)
    If mSocket < 1 Then
        CallMsgBox "Kein Verbindungsaufbau zum FTP Server möglich. Fehler: " + _
          CStr(ftpGetLastStatusCode()) & " - " & ftpGetLastStatusMsg()
        Exit Function
    End If
    ftpSetBinary (mSocket)
 
    Dim strFileName As String
    strFileName = ffGetFileFromPath(strSourceFile)
    Dim res As Long
    res = ftpPutFile(mSocket, mServer, 0, strFTPDir + "/" + strFileName, _
      strSourceFile)
    If Not res = 1 Then
        CallMsgBox "FTP Transfer von " + UCase(strSourceFile) + " ist" & _
          "fehlgeschlagen! - " & _
            "Fehler: " + CStr(ftpGetLastStatusCode()) & " - " & _
            ftpGetLastStatusMsg()
        Exit Function
    End If
    ftpQuit (pSocket)
End Function
Kann mir bitte jemand weiterhelfen?

Vielen Dank
Mit freundlichen Grüßen
Christian

Christian Rettenbacher
Softwaredevelopement

EMCO Maier Ges.m.b.H.
Salzburger Strasse 80
5400 Hallein/Austria
Tel +43-62 45-8 91-516
Fax +43-62 45-86965
www.emco.at

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Ordnerfreigabe nach FTP-Upload6.225rettench13.06.07 14:02
Re: Ordnerfreigabe nach FTP-Upload2.858ModeratorMartoeng21.06.07 18:33
Re: Ordnerfreigabe nach FTP-Upload2.696Björn Mankel23.06.07 07:45
Re: Ordnerfreigabe nach FTP-Upload2.905ModeratorMartoeng23.06.07 11:18

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel