/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Mapper
Fra : Jens Andersen


Dato : 11-03-01 16:24

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





 
 
Thomas Rasmussen (12-03-2001)
Kommentar
Fra : Thomas Rasmussen


Dato : 12-03-01 09:09

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



Asbjørn Sloth Tønnes~ (12-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 12-03-01 17:37

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



Jens Andersen (12-03-2001)
Kommentar
Fra : Jens Andersen


Dato : 12-03-01 18:02

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 !



Asbjørn Sloth Tønnes~ (13-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 13-03-01 08:24

Hvis du bruger VB6 kan du bruge Split()

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

Asbjørn



Asbjørn Sloth Tønnes~ (13-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 13-03-01 08:34


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



Niels Krogh (13-03-2001)
Kommentar
Fra : Niels Krogh


Dato : 13-03-01 10:48

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



Jens Andersen (13-03-2001)
Kommentar
Fra : Jens Andersen


Dato : 13-03-01 19:32

Det virker perfekt Niels VB-Haj Krogh

Stort skullereklap samt en lille kindhest herfra....

Mvh
Jens



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste