ProgressDialogShow("bitte etwas Geduld, die Setzliste wird übertragen und eingelesen...")
smb.copyToLocal("smb://" & VMip & "/" & VMpfad & "/Setzliste4a.txt", ListDir & "/Setzliste4A.tmp")
Wait(10)
ProgressDialogHide
'
If File.Exists(ListDir, "Setzliste4A.tmp") = True Then
ListVar = File.readlist(ListDir,"Setzliste4A.tmp") 'Datei einlesen
If ListVar.Size <= 1 Then 'Datei nicht in Ordnung
File.Delete (ListDir, "Setzliste4A.tmp")
Msgbox("Die übertragene Datei ist nicht OK","Problem [301]")
Return
Else 'es ist alles OK mit der geholten Datei
File.Copy(ListDir, "Setzliste4A.tmp",ListDir, "Setzliste4A.txt")
File.Delete (ListDir, "Setzliste4A.tmp")
End If
Else
Msgbox("Datei wurde nicht übertragen!","")
End If