smbClient.Initialize("smbClient_Copy", smbDomain, smbUser,smbPassword, SMB_Dir)
Wait For smbClient_Copy_Resource(success As Boolean, smbobjres As Object,smbobj As Object, info As String)
If smbobjres <> Null And smbobj <> Null And info = "OK" Then
Dim smbResource As SMBResource = smbobjres
For Each f As String In File.ListFiles(CurrentDir)
smbClient.Copy2(CurrentDir,f,smbResource, f)
Wait For smbClient_Copy_CopyResult(success As Boolean, path As String, filename As String)
If success = False Then
bB = False
End If
Sleep(0)
Next
End If