Re: Verzeichnis anlegen, wenn inexistent
05.06.2003 13:36:47
Ramses
Hallo Martin,hier zwei Varianten. Such dir eine aus:
Sub Erstelle_Verzeichnis_Fs_Objekt()
Dim fs As Object, F As Object
Dim Folder1 As String, Folder2 As String, Folder3 As String, LW As String
Set fs = CreateObject("Scripting.FileSystemObject")
'Wenn deine Verzeichnisstruktur tiefer ist, musst du mehrmals wechseln
'oder die Folder der Reihe nach erstellen
Folder1 = "c:\Dein_Vorlagen_Ordner"
Folder2 = "c:\Dein_Vorlagen_Ordner\Dein_Unterordnder"
Folder3 = "c:\Dein_Vorlagen_Ordner\Dein_Unterordnder\Noch_ein_Unterordner"
LW = "C:"
ChDrive LW
If Not fs.folderexists(Folder1) Or fs.folderexists(Folder2) Or fs.folderexists(Folder3) Then
On Error Resume Next
MkDir Folder1
MkDir Folder2
MkDir Folder3
End If
fs.copyFile "A:\*.xlt", Folder3
'Environ bringt das UserVerzeichnis
'fs.copyFile "A:\*.lnk", Environ(25) & "\Desktop"
MsgBox ("Alle Vorlagen wurden kopiert")
End SubSub Erstelle_Verzeichnis_DoLoop_Variante()
Dim stVerz As String, stTmp As String
Dim i As Long, n As Long
stVerz = "C:\Test\test1\test2\Test3\test4\"
n = 1
Do
i = InStr(n, stVerz, "\")
If i > 0 Then
stTmp = Left(stVerz, i)
n = i + 1
Else
stTmp = stVerz
n = Len(stVerz)
End If
If Dir(stTmp, vbDirectory) = vbNullString Then
MkDir stTmp
End If
Loop Until i = 0
End Sub
Code eingefügt mit Syntaxhighlighter 1.16
Gruss Rainer