---

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

---

Hejsa.
Du skal bruge FileSystemObject til at oprete din sti med.

Dim s1 As FileSystemObject
Dim fo As Folder

Set s1 = New FileSystemObject
Set fo = s1.CreateFolder("C:\Test").SubFolders.Add("CD
12").SubFolders.Add("Prøve")

Du kan sætte et vilkårligt antal subfolders på din Folder

/Thomas, EDB programmør, Aston



"Jens Andersen" <til@infojens.dk> wrote in message
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
>
>
>
>

---

Hvordan kan
Set fo = s1.CreateFolder("C:\Test").SubFolders.Add("CD
12").SubFolders.Add("Prøve")
oprette
C:\Test\Cd 1\Prøve
???

Asbjørn

---

Det vil helle ikke gå fordi jeg har lavet en form som har en tekst og det er
den sti som står i den op der skal oprettes !

---

Hvis du bruger VB6 kan du bruge Split()

Dim Sti() As String
Sti = Split(BrugerInputSti.Text, "\")

Asbjørn

---

> > Dim Sti() As String
> Sti = Split(BrugerInputSti.Text, "\")

Sti er et array
så hvis brugeren taste C:\Test\Programmer\Menuen Start\Test\Tekstfil.txt
vil Sti se sådan ud
Sti(0) = "C:"
Sti(1) = "Test"
Sti(2) = "Programmer"
Sti(3) = "Menuen Start"
Sti(4) = "Test"
Sti(5) = "Tekstfil.txt"

> Asbjørn

---

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
>
>
>
>

---

Det virker perfekt Niels VB-Haj Krogh

Stort skullereklap samt en lille kindhest herfra....

Mvh
Jens