Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ordnerstruktur kopieren
Autor: broilerbein
Datum: 23.05.02 22:24
Wie wärs damit: Option Explicit Private fsObj, fsFolder, fsElements, fsFiles Public Sub initFileCollection(strPath As String, strNewPath As String) Set fsObj = CreateObject("Scripting.FileSystemObject") Set fsFolder = fsObj.GetFolder(strPath) 'jetzt nach Ordnern suchen Set fsFiles = fsFolder.SubFolders For Each fsElements In fsFiles 'Ordner anlegen MkDir (strNewPath & fsElements.Name) DoEvents 'und nach weiteren Unterordnern suchen getSubFolders fsElements, strNewPath & fsElements.Name & "\" DoEvents Next fsElements End Sub Private Sub getSubFolders(ByVal fsFolder As Folder, strNewPath As String) 'nach ordnern suchen Set fsFiles = fsFolder.SubFolders For Each fsElements In fsFiles 'Ordner speichern MkDir (strNewPath & fsElements.Name) DoEvents 'und nach weiteren Unterordnern suchen getSubFolders fsElements, strNewPath & fsElements.Name & "\" Next fsElements End Sub 'Main ist nur Aufrufbeispiel Public Sub Main() initFileCollection "C:Programme\", "E:\" End Sub

Ordnerstruktur kopieren	68	PsychoForest	23.05.02 21:33
Re: Ordnerstruktur kopieren	306	Dieter	23.05.02 22:09
Re: Ordnerstruktur kopieren	52	broilerbein	23.05.02 22:24
Uppps.... wie umständlich	315	Dieter	23.05.02 22:34
Nicht nur das!	288	unbekannt	23.05.02 23:00
Re: Ordnerstruktur kopieren	45	PsychoForest	23.05.02 22:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen