Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren eines Ordners per VBA

Kopieren eines Ordners per VBA
01.10.2018 16:24:06
Patrick
Hallo zusammen,
ich lasse eine .zip-Datei durch Excel entpacken, für die durch VBA ein entsprechender Ordner angelegt wird. Diesen Ordner würde ich gerne in den Zwischenspeicher laden (also einfach kopieren ohne bisheriges Ziel) um ihn dann manuell auf einen USB-Stick einzufügen.
Ich würde gerne direkt verschieben, hierfür hätte ich auch den entsprechenden Code. Leider gibt es Zugriffsbeschränkungen beim Laufwerk USB-Stick, so dass dieses nicht funktioniert.
Gibt es die Möglichkeit für das beschriebene?
Code zum entpacken:

Sub UnzipPF()
Dim FSO As Object
Dim oApp As Object
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim DefPath As String
Dim strDate As String
Fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", _
MultiSelect:=False)
If Fname = False Then
Else
DefPath = "G:\...\...\...\Beratungen\Transfer_PF\"
If Right(DefPath, 1)  "\" Then
DefPath = DefPath & "\"
End If
'Create the folder name
strDate = Format(Now, " dd-mm-yy h-mm-ss")
FileNameFolder = DefPath & "Beratungsunterlagen_" & Range("K7") & "_" & Range("T7")
'Make the normal folder in DefPath
MkDir FileNameFolder
'Extract the files into the newly created folder
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).Items
'If you want to extract only one file you can use this:
'oApp.Namespace(FileNameFolder).CopyHere _
'oApp.Namespace(Fname).items.Item("test.txt")
MsgBox "Die Dateien sind hier zu finden: " & FileNameFolder
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True
End If
End Sub

Vielen Dank für Eure Hilfe!
Gruß,
Patrick

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren eines Ordners per VBA
02.10.2018 14:10:19
Patrick
Niemand eine Idee?
Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige