' ### ServerVerzwichnis wieder auf Root-verzeichnis setzen !
               If txtWebPfad > "" Then
                antUpload = ftpChangeDir(pSocket, "..") ' Verzeichnis wieder 
                ' auf Root-Verzeichnis setzen !
                 If antUpload > 0 Then
                  ' wenn o.k. dann weiter
                  Else
                   AddStatus ftpGetLastStatusCode & " " & ftpTranslateErrorCode( _
                     ftpGetLastStatusCode) & "  ->  '" & txtServerpfad & "'"
                   MsgBox "Error-Code 4598 -> Es ist ein Serverfehler" & _
                   "aufgetreten !"
                   AddStatus "## Trenne die Verbindung ! ##"
                   ftpQuit (pSocket)
                   AddStatus "## Verbindung wurde getrennt ! ##"
                   AddStatus ftpGetLastStatusCode & " , " & ftpGetLastStatusMsg
                   Exit Sub
                 End If
                 ' wieder auf Root-Verzeichnis !
                End If
           ' ### ENDE Root-Verzeichnis !
 
        If antUpload > 0 Then
          AddStatus "Übertrage: " & (App.Path & s_line_2)   ' Nur zum testen !!!
          AddStatus "STOR " & localFile & " kByte  " & (Replace(txtServerpfad & _
            Replace(s_Line, "\", "/"), "//", "/"))   ' Nur zum testen !!!
         Else
          AddStatus ftpGetLastStatusCode & " " & ftpTranslateErrorCode( _
            ftpGetLastStatusCode) & "  ->  '" & localFile & "'"
          AddStatus "## Datei wurde nicht übertragen !!! ##"
          AddStatus "## Trenne die Verbindung ! ##"
          ftpQuit (pSocket)
          AddStatus "## Verbindung wurde getrennt ! ##"
          AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
          Exit Sub
        End If
 
    zaehler = zaehler + 1  ' Zähler um 1 erhöhen
    Loop
 
        '### Test mehrere dateien auf einmal senden ###
        '### Ende Datei Schleife FTP-Upload
'##############################################################################
 
AddStatus "####### ENDE Neue Schleife !!! ########"
 
    Else
      AddStatus ftpGetLastStatusCode & " " & ftpTranslateErrorCode( _
        ftpGetLastStatusCode)
      AddStatus "      Login nicht möglich, ..."
      AddStatus "      Überprüfen Sie die Zugangsdaten !"
      AddStatus "## Trenne die Verbindung !##"
      ftpQuit (pSocket)
      AddStatus "## Verbindung wurde getrennt ! ##"
      AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
      Exit Sub
    End If
 
    ftpQuit (pSocket)
    AddStatus "## Verbindung zum Server: " & txtServer & " geschlossen ! ##"
    AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
 
End Sub
 
Private Sub AddStatus(ByVal sText As String)
 
  ' Status-Feld aktualisieren
  If Right$(sText, 2) <> vbCrLf Then _
    sText = sText & vbCrLf
  ServerLog.Text = ServerLog.Text & sText
  ServerLog.SelStart = Len(ServerLog.Text)
 
End Sub
'############## Ende des Scripts Form1.frm #################

Gruss
Bobbel