Hej Jens,
Følgende funktion burde kunne gøre det.
mvh
Niels
Public Function CreateDirectory(ByVal Path As String) As Boolean
Dim Pos As Byte
Dim sDir As String
If Dir(Path, vbDirectory) <> "" Then Exit Function
If Right$(Path, 1) <> "\" Then Path = Path & "\"
Pos = InStr(Path, "\")
While Pos
Pos = InStr(Pos + 1, Path, "\")
If Pos Then
sDir = Left$(Path, Pos)
If Dir(sDir, vbDirectory) = "" Then MkDir sDir
End If
Wend
End Function
"Jens Andersen" <til@infojens.dk> skrev i en meddelelse
news:98g59r$2vk$1@news.inet.tele.dk...
> Dette opretter en mappe
>
> MkDir "C:\Test"
>
> Man hvad nu hvis jeg gerne vil oprette en hel sti fx:
>
> C:\Test\Cd 1\Prøve
>
> Og ingen af mapperne er der i forvejen hvad gør man så ?????
>
> P.S. Jeg ønsker ikke at oprette dem en efter en
>
>
> Mvh
> Jens
>
>
>
>