ich habe folgendes vor und suche seit Stunden.
Ich möchte von CD oder USB-Stick eine Verzeichnisstruktur in ein auszuwählendes
Verzeichnis einfügen.
Ich habe eine umgekehrte Version im Herber-Archiv gefunden. Hier wird von HDD Verzeichnis ausgewählt und in USB-Stick eingefügt.
Hallo Klaus
Teste mal das hier:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Dim arr
Dim L As Long
Public Sub Aufruf()
Dim objShell As Object
Dim objFolder As Object
Dim objItem As Object
L = 0
Redim arr(1)
Set objShell = CreateObject("Shell.Application")
With objShell
Set objFolder = .BrowseForFolder(0&, "Startordner suchen", 0)
End With
If Not objFolder Is Nothing Then
Set objItem = objFolder.Self
arr(L) = objItem.Path
arr(1) = "D:\Testordner"
L = 1
Else: Exit Sub
End If
Schreiben objItem.Path
verzeichnisse_erstellen (arr)
End Sub
Public Sub Schreiben(Suchordner)
Dim fso As Object
Dim datei
Dim Unterordner
Set fso = CreateObject("Scripting.FileSystemObject")
Set datei = fso.getfolder(Suchordner)
On Error Resume Next
For Each Unterordner In datei.subfolders
L = L + 1
Redim Preserve arr(L)
arr(L) = Replace(Unterordner.Path, arr(0), "D:\Testordner")
Schreiben Unterordner
Next
Set fso = Nothing
Set datei = Nothing
End Sub
Public Sub verzeichnisse_erstellen(a)
Dim LNG As Long
On Error Resume Next
For LNG = 1 To UBound(arr)
If Dir(arr(LNG)) = "" Then MkDir arr(LNG)
Next
End Sub
Nimm aber erstmal verzeichnisse in denen nichts steht.
ransi
Könnt Ihr mir helfen, dies umzubauen, dass ich von USB auf auszuwählende Verzeichnis einfügen kann.
Besten Dank für Eure Hilfe.
Gruss
Peter