' Dateigröße einer lokalen Datei ermitteln
Private Function GetLocalFileSize(ByVal Filename As String) As Long
  Dim RetVal As Long, hFile As Long, SizeLng As Long, OF As OFSTRUCT
 
  ' Datei öffnen
  hFile = OpenFile(Filename, OF, 0&)
  If hFile = -1 Then
    ' Datei existiert nicht!
    GetLocalFileSize = -1
    Exit Function
  End If
 
  ' Göße bestimmen und Datei schließen
  GetLocalFileSize = GetFileSizeA(hFile, SizeLng)
  CloseHandle hFile
End Function
 
 
 
Private Sub Command1_Click()
Unload Me
End Sub
 
Private Sub Upload_FTP_Click()
Dim txtHost As String
Dim txtUser As String
Dim txtKennwort As String
Dim txtPort As String
Dim txtServerpfad As String
Dim txtLocalFile As String
Dim txtServerFile As String
Dim txtWebPfad As String
Dim zaehler As Long
 
Dim antUpload As Long
Dim pSocket As Long
 
 
'#### 1. wird später im PGM bedient !!!
' Bitte hier die entsprechenden Angaben selber ausfüllen !
 
'txtHost = "www.mein-Server.de"  'Anstatt IP den DNS-Namen!
txtHost = "xxx.xxx.xxx.xxx"
txtUser = "xxxxxxxxxx"
txtKennwort = "xxxxxxxxx"
txtPort = "21"
txtServerpfad = "" 'falls erfordelich, ansonsten leer lassen !
ServerLog = ""
 
'#### 1. Ende ##########################
 
 
    AddStatus "        Verbindung wird aufgebaut, ...."
    AddStatus "        Connect zum Server: " & txtHost
 
    pSocket = ftpConnect(txtHost, txtUser, txtKennwort)
 
    If pSocket > 0 Then
      AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
 
      antUpload = ftpChangeDir(pSocket, txtServerpfad)
 
      If antUpload > 0 Then 'Verzeichniswechsel
       AddStatus "       cd ... " & txtServerpfad
       AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
       Else
       AddStatus ftpGetLastStatusCode & " " & ftpTranslateErrorCode( _
         ftpGetLastStatusCode) & "  ->  '" & txtServerpfad & "'"
       AddStatus "## Trenne die Verbindung ! ##"
       ftpQuit (pSocket)
       AddStatus "## Verbindung wurde getrennt ! ##"
       AddStatus ftpGetLastStatusCode & " " & ftpGetLastStatusMsg
       Exit Sub
      End If
 
 
 
 
        If FileExists(App.Path & "\export\" & "WebSeiten.txt") = True Then
           AddStatus "      Indexdatei wird vorbereitet, ..."
         Else
           AddStatus "      ErrorCode 9071 -> Index nicht vorhanden !"
           AddStatus "## Trenne die Verbindung ! ##"
           ftpQuit (pSocket)
           AddStatus "## Verbindung wurde getrennt ! ##"
           AddStatus ftpGetLastStatusCode & " , " & ftpGetLastStatusMsg
           Exit Sub
        End If
 
      ' Prüfen ob Datei im ASCII oder Binary mode übertragen werden muss !!!
      ftpSetBinary (pSocket) 'zum testen alles Binary !!!!
      AddStatus ftpGetLastStatusCode & " , " & ftpGetLastStatusMsg
 
'#############################################################################
 AddStatus "########### Neue Schleife !!! ##########"  'nur zum testen !
 
       'Einträge ermittel für die Schleife 14.03.2012
        Dim H As Integer
        Dim ii As Integer  'Zähler für Split-Funktion
        Dim s_Line As String
        Dim nCount As Long
        Dim s_File As String
        Dim test_local As String
        Dim test_server As String
        Dim Ext As String
        Dim s_line_2 As String
        Dim sPfad() As String  'isoliereter Pfad
 
                 s_File = (App.Path & "\export\" & "WebSeiten.txt")
                 ' Datei sequentiell öffnen und zeilenweise auslesen
                 H = FreeFile
                 Open s_File For Input As #H
                 While Not EOF(H)
                   Line Input #H, s_Line
                   nCount = nCount + 1
                 Wend
                 Close #H
                ' MsgBox nCount 'test !
                '    MsgBox zaehler & "   " & nCount
 
             'Schleife vorbereiten -> 1. Zeile in der Datei überspringen
              zaehler = 2
              Do Until zaehler > nCount
'########### Ab hier Teil 3 anhängen !!! #####################

Gruss
Bobbel