Nur Verzeichnisstruktur kopieren und eine Datei?

'Ordnerstruktur kopieren  
'02.06.06/ge  

option explicit

const C_Quelle = "c:\temp"  
const C_Ziel = "c:\x"  

DIM O_FSO

Set O_FSO = CreateObject("Scripting.FileSystemObject")  

call S_ReadDir(C_Quelle)

'#############  
'Ordnerstruktur einlesen  
sub S_ReadDir(P_Quelle)
    DIM O_Dir
    DIM O_SubDir
    
    Set O_Dir = O_FSO.GetFolder(P_Quelle)
    for each O_SubDir in O_Dir.subfolders
        call S_WriteDir(right(O_SubDir.Path,LEN(O_SubDir.Path)-LEN(C_Quelle)))
        'Aktivieren, falls Unterverzeichnisse auch angelegt werden sollen'  
        S_ReadDir O_SubDir
        call S_WriteFile(right(O_SubDir.Path,LEN(O_SubDir.Path)-LEN(C_Quelle)))
    next
end sub

'Schreibe Ordnerstruktur'  
sub S_WriteDir(P_Ziel)
    on error resume next
    O_FSO.CreateFolder C_Ziel & P_Ziel
    on error goto 0
end sub

'Kopiere Datei'  
sub S_WriteFile(P_Ziel)
    DIM O_Datei
    DIM O_Dir
    DIM L_Quelle
    DIM L_Ziel
    L_Quelle = C_Quelle & P_Ziel
    L_Ziel = C_Ziel & P_Ziel & "\"  
    set O_Dir = O_FSO.GetFolder(L_Quelle)
    for each O_Datei in O_Dir.Files
        O_FSO.CopyFile O_Datei.Path,L_Ziel
        exit for
    Next
end sub

Grüße Guido
www.code-master.de