Private Sub Form_Load()
Dim Ereignis
Dim steuerung As String
Dim input_v As String
Dim Datei As String
Dim Fnr As Long
 
Load Form1
 
On Error GoTo Fehler
     Fnr = FreeFile
     Datei = "d:\Rechner2.txt"
     Open Datei For Input As #2
     Input #2, input_v
     Close #2
     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\*.* \\Rechner\c$\klinik\*.*" & _
       "/d/s/e/f/c/h/y")
 
Unload Form1
End Sub