SMB1.Initialize("SMB1")
SMB1.DownloadFile("SMB://" & WINip & "/" & WINpfad & "/","H4A.txt",File.DirInternal,"H4A.txt")
Sub SMB1_DownloadCompleted (uurl As String, RemoteFile As String, Success As Boolean)
If Success = True Then
If File.Exists(File.DirInternal,"H4a.txt") Then
einlesen ("WLAN")
Else
MsgboxAsync("Die eingelesene Datei kann nicht verarbeitet werden!","Problem 830")
Return
End If
Else
MsgboxAsync("Datei konnnte nicht heruntergeladen werden!","Problem 832")
Return
End If
End Sub