Lave mapper og undermapper

Hejsa qnutella
Jeg har lavet et script til der giver en bruger mulighed for at oprette en mappe og navngive den. Derefter kan brugeren oprette og navngive en subfolder.


set fso    = CreateObject("Scripting.FileSystemObject")


FolderName = InputBox("Indtast foldernavn")


FolderSubName = InputBox("Indtast subfolder")


path    = "c:\"

set fldUserHomedir = fso.CreateFolder(FolderName)
    fso.CreateFolder(path & "\" & FolderName )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName )

Håber du kan bruge det:):)

Det fungere rigtig godt, men subfolderen bliver ikke lavet? :-)

det virker fint hos mig.....først oprettes folderen og derefter subfolderen.

hmmmm

Sorry det virker... det var bare lige mig der tågede! :-)

Det er kanon!

Hvordan får du den lige til at automatisk oprette eks. 4 undermapper til subfolderen, som er foruddefineret?

2 sek....

så skulle det være fikset:):)

set fso    = CreateObject("Scripting.FileSystemObject")


FolderName = InputBox("Indtast foldernavn")


FolderSubName = InputBox("Indtast subfolder")


path    = "c:\"
    subfolder1 = "folder1"
    subfolder2 = "folder2"
    subfolder3 = "folder3"
    subfolder4 = "folder4"

set fldUserHomedir = fso.CreateFolder(FolderName)
    fso.CreateFolder(path & "\" & FolderName )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName & "\" & subfolder1 )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName & "\" & subfolder2 )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName & "\" & subfolder3 )
fso.CreateFolder(path & "\" & FolderName & "\"  & FolderSubName & "\" & subfolder4 )

FAAANTASTISK!!!!! JUBIII! Det virker som det skal!

Nu bliver jeg så virkelig provo!

Kan man gøre sådan at navnet på subfolder kan vælges fra en liste og/eller skrives?

Du skal nok få flere point hvis det er meget svært :-)

du kan ikke lave en selectbox i .vbs script der skal du over i visual basic........

men vi kan jo bare lave det sådan at man også skal indtaste navnene på de 4 subfoldere.

Nej det er ikke så godt med de 4 foldere. De skal bare have et fast navn!

Men okay, så...

Hmmm

er det en kæmpe omprogrammering hvis det skal i VBA?

nej det er ikke slemt men så er det jo ikke et script længere....

nej okay... Men så må det lade vær med at være et script! ;-)

er det noget jeg kan lokke dig til? PLEASE!

det kommer til at koste:):)...men ok

1000 1000000 mange gange tak

er 200 point + de 180 ok? ;)

yeps...er næsten færdig du får det senere

cool!

Vi skrives vee så...

her er koden i VB:

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")


FolderName = Form1.Text1.Text


FolderSubName = Form1.Text2.Text


Path = "c:\"

scantype = Form1.Combo1.Text

    subfolder1 = "folder1"
    subfolder2 = "folder2"
    subfolder3 = "folder3"
    subfolder4 = "folder4"


    fso.CreateFolder (Path & "\" & FolderName)
fso.CreateFolder (Path & "\" & FolderName & "\" & scantype)
fso.CreateFolder (Path & "\" & FolderName & "\" & scantype & "\" & subfolder1)
fso.CreateFolder (Path & "\" & FolderName & "\" & scantype & "\" & subfolder2)
fso.CreateFolder (Path & "\" & FolderName & "\" & scantype & "\" & subfolder3)
fso.CreateFolder (Path & "\" & FolderName & "\" & scantype & "\" & subfolder4)
End Sub

Private Sub Form_Load()
Combo1.AddItem "" & "folder1"
Combo1.AddItem "" & "folder2"
Combo1.AddItem "" & "folder3"
Combo1.AddItem "" & "folder4"
End Sub

Hmmm hvorfor faen kan jeg ikke lige få den til at virke i Visual Studio .NET 2003???

Som sagt jeg er en kejle til programmering! :-)

Hvaaa er det muligt at jeg evt. kunne få form og såen, så jeg bare lige skal kompile det? :) *Blinker med store våde hundeøjne*

smid din mail så sender jeg projektet til dig.

jesper@lura.dk

sendt....du skal lige fjerne .doc extension...jeg har døbt den det for at den ikke bliver snuppet af et eventuelt spamfilter.

kan du få det til at virke?

Kanon!

1000 tak for hjælpen

Hvordan giver jeg dig flere point?

tja du kunne oprette et nyt spørgsmål...hvor vi så paster det sidte ind.

sig lige til når du opretter et spørgsmål:)

stiller du ikke et spørgsmål?.....lidt karma ville også være fedt:)

Sorry jeg har haft lidt travlt...

Her er der et spøgsmål:

http://www.eksperten.dk/spm/567085