8
VBA Excel - kopieren mit Angabe von Dateinamen und kompletten Ordner kopieren
Hallo,
meine Frage wäre folgende.
Ich bekomme per Mail jeweils einen Link zurgesendet.
Dieser Link endet mal bei einem Ordner oder mal mit Dateiname.
Wenn ich bei meinem Programm den Link ohne Dateinamen einfüge passiert leider nichts.
Gibt es eine Möglichkeit das es egal ist ob mit oder ohne Dateinamen.
D.h wenn der Link nur einen Ordner enthält, soll er einfach den kompletten Inhalt des Ordners kopieren.
Wenn Link inkl. Dateinamen, soll er nur diese Datei kopieren.
Ziel und Quell Vereichnis ist immer unterschiedlich.
Kann mir jemand sagen wie ich kopiere egal ob mit oder ohne Dateinamen.
Derzeit benutze ich FileCopy welches bei Angabe inkl. Dateinamen einwandfrei funktioniert. Nur ohne Dateiname kopiert er mir leider nicht den kompletten Ordner ins Zielverzeichnis.
Danke
Gruß
Andreas
meine Frage wäre folgende.
Ich bekomme per Mail jeweils einen Link zurgesendet.
Dieser Link endet mal bei einem Ordner oder mal mit Dateiname.
D:\test
D:\test\datei1.txtGibt es eine Möglichkeit das es egal ist ob mit oder ohne Dateinamen.
D.h wenn der Link nur einen Ordner enthält, soll er einfach den kompletten Inhalt des Ordners kopieren.
Wenn Link inkl. Dateinamen, soll er nur diese Datei kopieren.
Ziel und Quell Vereichnis ist immer unterschiedlich.
Kann mir jemand sagen wie ich kopiere egal ob mit oder ohne Dateinamen.
Derzeit benutze ich FileCopy welches bei Angabe inkl. Dateinamen einwandfrei funktioniert. Nur ohne Dateiname kopiert er mir leider nicht den kompletten Ordner ins Zielverzeichnis.
Danke
Gruß
Andreas
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 299766
Url: https://administrator.de/contentid/299766
Printed on: April 23, 2024 at 06:04 o'clock
8 Comments
Latest comment
Set fso = CreateObject("Scripting.Filesystemobject")
item = "D:\test"
If fso.FileExists(item) Then
fso.CopyFile item, "C:\ziel\"
Elseif fso.FolderExists(item) then
fso.CopyFolder item, "C:\ziel\"
End If
Hi,
vielen Dank für deine schnelle Hilfe.
Habe versucht es gleich einzuarbeiten.
Leider musste ich es ein bischen abändern.
Genau da liegt jetzt das Problem.
Leider werden die fso Methoden nicht ausgeführt.
Wenn ich die IF auskomentiere, bekomme ich eine Fehlermeldung invalid Path.
Hab ich beim umschreiben irgendetwas falsch gemacht?
die MsgBox "Anfang _KT gibt er nocht richtig aus danach wars das ohne Fehlermeldung. Nix wird kopiert.
Ich hoffe das ist nur irgendwo ein kleiner Fehler und du kannst mir helfen.
Bin am verzweifeln.
Danke
Gruß
Andreas
vielen Dank für deine schnelle Hilfe.
Habe versucht es gleich einzuarbeiten.
Leider musste ich es ein bischen abändern.
Genau da liegt jetzt das Problem.
Leider werden die fso Methoden nicht ausgeführt.
Wenn ich die IF auskomentiere, bekomme ich eine Fehlermeldung invalid Path.
Hab ich beim umschreiben irgendetwas falsch gemacht?
die MsgBox "Anfang _KT gibt er nocht richtig aus danach wars das ohne Fehlermeldung. Nix wird kopiert.
Public Sub FileCopy_KT(ByVal sSourceFile As String, _
ByVal sDestFile As String)
Dim fso As Object
Set fso = CreateObject("Scripting.Filesystemobject")
MsgBox "Anfang _KT" & "Source: " & sSourceFile & " - Dest: " & sDestFile
'If fso.FileExists(sSourceFile) Then
MsgBox "FILECOPY" & "Source: " & sSourceFile & " - Dest: " & sDestFile
fso.CopyFile sSourceFile, sDestFile
'ElseIf fso.FolderExists(sSourceFile) Then
MsgBox "FOLDERCOPY" & "Source: " & sSourceFile & " - Dest: " & sDestFile
fso.CopyFolder sSourceFile, sDestFile
'End If
End SubFileCopy_KT Me.tbWRPFile.Value, KonfigOrdnerPfadRBOrdnerStandortKonfig_Template & "\" & DateiNameFC
Else
MsgBox "WRP-File wurde NICHT kopiert. Es muss die Datei mit angegeben werden. Ganze Ordner werden NICHT kopiert. Programm wird weiter ausgeführt"
End If
Else
MsgBox "WRP-File wurde NICHT kopiert. Es wurde kein oder falscher Pfad angegeben oder Datei ist nicht vorhanden. Programm wird weiter ausgeführt"
End If Ich hoffe das ist nur irgendwo ein kleiner Fehler und du kannst mir helfen.
Bin am verzweifeln.
Danke
Gruß
Andreas
Die Pfade für die Destination müssen einen abschließenden Backslash aufweisen wenn nur ein Ordner angeben wird!
Kann man auch in der Doku nachlesen wenn man sie denn mal bemühen würde
immer das selbe
https://msdn.microsoft.com/de-de/library/office/gg264819.aspx
Und mein IF-Konstrukt hast du ja komplett auskommentiert ???... Wenn du diese Dinge beachtetste geht das Problemlos!!!
Kann man auch in der Doku nachlesen wenn man sie denn mal bemühen würde
immer das selbehttps://msdn.microsoft.com/de-de/library/office/gg264819.aspx
Und mein IF-Konstrukt hast du ja komplett auskommentiert ???... Wenn du diese Dinge beachtetste geht das Problemlos!!!
jo die IF-Konstrukte habe ich zum testen auskomentiert. Die sind natürlich wieder drin.
Ich habe wirklich schon ganz viel gelesen. Da ich mich erst an ein Forum wende wenn ich mit lesen nicht mehr weiter komme.
Muss auch dazu sagen das mein 2500 zeiliges Programm mein erster Versuch in sachen Programmierung ist. Habe schon sehr viel gelernt.
Aber bei diesem Fehler stoße ich an meine Grenzen.
Wenn ich einen Pfad angebe OHNE Dateinamen kommt ein Laufzeitfehler 79
in dieser Codezeile
Wenn ich aber die Variablen Überwache, sind diese i.O. Also die Pfade lassen sich öffnen und sind auch vorhanden.
PS: Du kannst es vielleicht nicht glauben, aber viele Dokumentationen sind für mich nur Bahnhof. Ich lese viele aber jetzt am Anfang meiner Kenntnisse puh sind die meisten noch zu, wie sagt man : "heftig".
Ich habe wirklich schon ganz viel gelesen. Da ich mich erst an ein Forum wende wenn ich mit lesen nicht mehr weiter komme.
Muss auch dazu sagen das mein 2500 zeiliges Programm mein erster Versuch in sachen Programmierung ist. Habe schon sehr viel gelernt.
Aber bei diesem Fehler stoße ich an meine Grenzen.
Wenn ich einen Pfad angebe OHNE Dateinamen kommt ein Laufzeitfehler 79
in dieser Codezeile
fso.CopyFolder sSourceFile & "*", sDestFile ' Testweise mit *
fso.CopyFolder sSourceFile, sDestFilePS: Du kannst es vielleicht nicht glauben, aber viele Dokumentationen sind für mich nur Bahnhof. Ich lese viele aber jetzt am Anfang meiner Kenntnisse puh sind die meisten noch zu, wie sagt man : "heftig".
Zitat von @BloodyRulz:
Wenn ich einen Pfad angebe OHNE Dateinamen kommt ein Laufzeitfehler 79
in dieser Codezeile
Dann zeig doch mal was in deinen Variablen genau drin steht, hellsehen kann ich leider noch nicht ...Wenn ich einen Pfad angebe OHNE Dateinamen kommt ein Laufzeitfehler 79
in dieser Codezeile
> fso.CopyFolder sSourceFile & "*", sDestFile ' Testweise mit *
> fso.CopyFolder sSourceFile, sDestFile
> Und das der Zielpfad einen abschließenden Backslash haben muss hatte ich oben schon erwähnt...
Beispiele
fso.CopyFolder "c:\Pfad", "c:\ziel\" Wenn ich aber die Variablen Überwache, sind diese i.O. Also die Pfade lassen sich öffnen und sind auch vorhanden.
Leider kann ich sie nicht sehen 
und deine Berechtigungen auch nicht.Und was und wie du aus den Ordner kopieren willst steht hier auch nirgendwo.
PS: Du kannst es vielleicht nicht glauben, aber viele Dokumentationen sind für mich nur Bahnhof.
Zumal auf der Seite ja Beispiele drin stehen die einwandfrei funktionieren!
>> fso.CopyFolder sSourceFile & "*", sDestFile ' Testweise mit *
>> fso.CopyFolder sSourceFile, sDestFile
>> Und das der Zielpfad einen abschließenden Backslash haben muss hatte ich oben schon erwähnt...
\\net.domain\VPN\Komponenten\S_wru\Rel_20151007_1453\ ' Variable sDestFile
O:\Konfiguration\Koeln\Standort1\Konfig_Template\" ' Variable sSourceFile & Me.tbWRPFile.Value Wenn ich aber die Variablen Überwache, sind diese i.O. Also die Pfade lassen sich öffnen und sind auch vorhanden.
Leider kann ich sie nicht sehen und deine Berechtigungen auch nicht.Und was und wie du aus den Ordner kopieren willst steht hier auch nirgendwo.
Der Link wird in meine Userform in die Textbox tbWRPFile kopiert. Nach klicken von "GO" sollen unter anderem Dateien bzw. ganz Ordner kopiert werden. (Je nach dem auf was der Link verweist)
Da haben wir ja schon den ersten Fehler die Quelle hat einen abschließenden Backslash der kommt da weg das gilt nur für die Destination.
Zweitens die Methode CopyFolder kopiert nur Ordner rekursiv und keine Dateien, d.h. das bei der Angabe in dieser Art
c:\Quelle\*
bei der Source alle Ordner des Ordners Quelle ins Ziel kopiert werden.
Für Dateien benutzt man dagegen CopyFile, bei dem man in der Source mit Wildcards arbeiten kann, man aber dann in der Destination einen Backslash am Ende benutzen muss.
Die Zielordner sollten natürlich schon angelegt worden sein.
Entsprechende Berechtigungen des Users setze ich natürlich auf den Pfaden vorraus!
Was kapierst du daran nicht ????
Mit minimalem ausprobieren hätte man das ebenfalls schon lange gelöst.
Echt schwer mit dir, sorry.
Zweitens die Methode CopyFolder kopiert nur Ordner rekursiv und keine Dateien, d.h. das bei der Angabe in dieser Art
c:\Quelle\*
bei der Source alle Ordner des Ordners Quelle ins Ziel kopiert werden.
Für Dateien benutzt man dagegen CopyFile, bei dem man in der Source mit Wildcards arbeiten kann, man aber dann in der Destination einen Backslash am Ende benutzen muss.
Die Zielordner sollten natürlich schon angelegt worden sein.
Entsprechende Berechtigungen des Users setze ich natürlich auf den Pfaden vorraus!
Was kapierst du daran nicht ????
Mit minimalem ausprobieren hätte man das ebenfalls schon lange gelöst.
Echt schwer mit dir, sorry.
Danke für deine Hilfe.
Ich hab verstanden.
Ich hab verstanden.
