Avatar billede mrdj Nybegynder
08. november 2010 - 11:01 Der er 2 kommentarer og
1 løsning

Dialog vindue der opretter mappestruktur

Hej Eksperter

Jeg har brug for et script der åbner et simpelt dialog vindue der spørger om et sagsnummer/sagsnavn, når dette er indtastet og man klikker "Opret" , opretter den automatisk en hovedmappe og herunder opretter den en flok faste undermapper (sti til hoved og undermapper defineret i koden) såsom Billeder, Dokumenter, Regneark.

Er der nogen der kan hjælpe mig med det script ?

På forhånd tak :-)
Avatar billede Mads Larsen Nybegynder
12. november 2010 - 09:05 #1
Det her er godt nok bare et VBS script.
Men hvis den bare skal oprette nogen mapper, så er VBS script noget hurtigere at loade hver gang man skal bruge "programmet"

Men noget i den her stil? :)


Dim Mapper(2)
Dim fso
Set fso = CreateObject("scripting.filesystemobject")

'=====================================
HovedSti = "C:\"
Mapper(0) = "Mappe1"
Mapper(1) = "Mappe2"
Mapper(2) = "Mappe3"
'=====================================

Flere = 0

Do Until Flere = 7
    LavMappe
Loop


Sub LavMappe
    Sag = InputBox("Indtast sagsnummer/sagsnavn","Sagsnummer/sagsnavn")
    If Not Len(Sag) = 0 Then
        If Not fso.FolderExists(HovedSti & Sag) Then
            fso.CreateFolder(HovedSti & Sag)
            fso.CreateFolder(HovedSti & Sag & "\" & Mapper(0))
            fso.CreateFolder(HovedSti & Sag & "\" & Mapper(1))
            fso.CreateFolder(HovedSti & Sag & "\" & Mapper(2))
            MsgBox(Sag & " er nu oprettet")
        Else
            MsgBox("sagsnummer/sagsnavn findes allerede")       
        End If
    End If
   
    Flere = MsgBox("Vil du oprette flere?",292)
End Sub
Avatar billede mrdj Nybegynder
26. september 2011 - 20:04 #2
Se det er jo netop noget af det jeg skal bruge :-)

Smid et svar og der er point på vej
Avatar billede Mads Larsen Nybegynder
27. september 2011 - 08:11 #3
Her er et svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester