' Variablen-Deklarationen:
' ========================
Dim objFSO
Dim sSourceFile
Dim sDestinationFile
 
' Laufwerke verbinden:
' ====================
MapDrive "X:", "\\192.168.0.1\c$"
MapDrive "y:", "\\192.168.0.2\c$"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
sSourceFile = "X:\Quelldatei.txt"
sDestinationFile = "y:\Zieldatei.txt"
 
MsgBox objFSO.CopyFile( sSourceFile, sDestinationFile, vbTrue)
 
 
Sub MapDrive(ByVal path, ByVal url)
' Verbinden eines Netzlaufwerkes:
' ===============================
	Set net = CreateObject("WScript.Network")
 
	On Error Resume Next
	net.MapNetworkDrive path, url
	On Error Goto 0
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell