Private Sub Form_Load()
Dim Ereignis
Dim steuerung As String
Dim input_v As String
Dim Datei As String
Dim Fnr As Long
Dim Lesen As Integer
On Error GoTo Fehler
 
Load Form1
Lesen:
     Fnr = FreeFile
     Datei = "d:\Rechner2.txt"
 
     Open Datei For Input As #Fnr
     For Lesen = 1 To 1200
     Line Input #Fnr, input_v
     Close #Fnr
     GoTo Ereignis
     Exit Sub
 
Fehler:
     MsgBox "Es trat ein Fehler beim Öffnen der" & _
            " Datei !", 16, "Problem"
     Exit Sub
     Resume Next
 
 
Ereignis:
     Shell ("C:\Windows\system32\xcopy" & _
       "\\zfpsrv2\f$\Kleines_datenbankmodell\klinik\*.* \\" & input_v & _
       "\c$\klinik\*.* /d/s/e/f/c/h/y")
Next Lesen
Exit Sub
 
Unload Form1
End Sub