Private Sub ....
On Error Goto Fehler
Dim Datei As String
Dim Fnr As Long    'Die DateiNummer?
Dim tmpRechner As String 'Der RechnerName (eine Zeile aus der Datei)
Dim tmpShell As String
Dim n As Integer
 
Fnr = FreeFile
Open Datei For Input As #Fnr
    For n = 1 To 900
        'Einlesen des Rechnernamens:
        Line Input #Fnr, tmpRechner
        'Vorbereiten des Ereignisses:
        tmpShell = "C:\Windows\system32\xcopy" & _
          "\\zfpsrv2\f$\Kleines_datenbankmodell\klinik\*.* \\" & tmpRechner & _
          "\c$\klinik\*.* /d/s/e/f/c/h/y")
        'Jetzt kommt das Ereignis:
        Shell (tmpShell)
    Next n
Close
 
Exit Sub
 
Fehler:
    MsgBox "Es trat folgender Fehler auf: " & Err.Describtion & " (" & _
      Err.Number & ")", vbOK, "Fehler..."
    Resume Next
End Sub