Dialog vindue der opretter mappestruktur

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

Se det er jo netop noget af det jeg skal bruge :-)

Smid et svar og der er point på vej

Her er et svar :)