ich versuche, Dateien von einem gemeinsam genutzten Server im Windows Explorer von einem Drittanbieter in mein eigenes Netzwerk zu kopieren. Wenn ich mich manuell mit dem Server verbinde, gebe ich die folgende Adresse in den Windows Explorer ein: xxx.yyyyyyy.com und dann kann ich die Dateien im Explorer sehen.
Gibt es einen Ansatz zum Kopieren von Dateien von einem Drittanbieterserver über VBA/Makros?
Folgendes habe ich bereits probiert:
FileCopy source, destination
'In this Example I am Copying the File From "C:Temp" Folder to "D:Job" Folder
Sub sbCopyingAFile()
'Declare Variables
Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder As String
'This is Your File Name which you want to Copy
sFile = "Sample.xls"
'Change to match the source folder path
sSFolder = "C:Temp"
'Change to match the destination folder path
sDFolder = "D:Job"
'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")
'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(sSFolder & sFile) Then
MsgBox "Specified File Not Found", vbInformation, "Not Found"
'Copying If the Same File is Not Located in the Destination Folder
ElseIf Not FSO.FileExists(sDFolder & sFile) Then
FSO.CopyFile (sSFolder & sFile), sDFolder, True
MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If
End Sub
Leider funktionieren beide nicht. Die zweite Methode sagt mir, dass der Ordner keine Dateien enthält.
Danke im Voraus!
Grüße
Chris