Opret mappe.

Lidt inspiration - hvori der også oprettes en mappe, hvis den ikke eksistere i forvejen:

Private Sub udførGem()
Dim sti As String

Rem check drev
    On Error GoTo fejl_drev
    ChDir Me.t_drev

Rem drev OK
    sti = Me.t_drev
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
Rem check mappe
    On Error GoTo opret_mappe
    ChDir sti + Me.t_mappe
   
Rem gem filen
    ActiveWorkbook.SaveAs sti + Me.t_mappe + "\" + Me.t_filnavn + ".xls"
    Exit Sub
   
opret_mappe:
    MkDir sti + Me.t_mappe
    Resume Next
   
fejl_drev:
    MsgBox ("Fejl i Drev-angivelse")
End Sub

Her oprettes biblioteket i c:\

    lengde = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    dim msgtekst
    msgtekst = "Indtast initaler"
    While lengde < 1
        Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'her kommer input boksen som måler på lengden af initialer
        lengde = Len(Initialer)
       
    Wend   
       
        while lengde <= 1 or lengde > 4  'tjekker om lengden er mindre end 1 og større end 5.
        Initialer = InputBox("Du intasted", "fejl" , Initialer) ' hvis den er det bliver vi herinde.
        lengde = Len(Initialer)
     
    Wend

        if lengde > 1 And lengde < 5 then 'hvis lenden er mellem 1 og 4 så går vi herned.
        MsgBox ("Du indtasted: " & Initialer)
        fso.CreateFolder ("c:\" & initialer)
        end If

/Killer

hmm jeg får fejl på første linje.. tegnet er ugyldigt

cool... hvad gør  Set fso = CreateObject("Scripting.FileSystemObject") ?

Dim Input

'option explicit
'dim Initialer

    lengde = 0
    dim msgtekst
    msgtekst = "Indtast initaler"
    While lengde < 1
        Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'her kommer input boksen som måler på lengden af initialer
        lengde = Len(Initialer)
       
    wend   
       
        while lengde <= 1 or lengde > 4  'tjekker om lengden er mindre end 1 og større end 5.
        Initialer = InputBox("Du intasted", "fejl" , Initialer) ' hvis den er det bliver vi herinde.
        lengde = Len(Initialer)
     
    wend

        if lengde > 1 And lengde < 5 then 'hvis lenden er mellem 1 og 4 så går vi herned.
            MsgBox ("Du indtasted: " & Initialer)
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            If not objFSO.FolderExists("C:\" & Initialer) Then
                Set objFolder = objFSO.CreateFolder("C:\" & Initialer)
            Else
                wscript.echo "mappen er der"
            End If
        end if

tjah jeg lavede vel egentlig samme kode som killerclown gjorde bare lidt langsommere.. :D hehe men jeg tjekker på om biblioteket er der i forvejen...
en anden gang så vil jeg råde dig til at google sådan noget først.. hehe.. der findes tonsvis af meteriale derude...
scripting.filesystemobject er det object man skal initialisere for at kunne benytte sig af objfso.createfolder.. :D

Hehe ... Ja, den lå lige til højrefoden :o)

M.h.t. fso, så er der lidt, at tygge på her :
http://www.microsoft.com/technet/scriptcenter/guide/sas_scr_xfxi.mspx?mfr=true

/Killer

Kontrol af længden på den indtastede tekst, kan omskrives til dette:

dim msgtekst
    msgtekst = "Indtast navn." & vbCrLf & vbCrLf & "Navnet skal bestå af mindst 1 tegn og maks 5 tegn."

    dim ok
    ok = false

    while ok = false

    initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc")
    if len(initialer) > 0 and len(initialer) < 5 then ok = true
   
    wend

Det er mere logisk og forklarer også brugeren hvad der forventes af ham/hende.

Man kunne også bare bruge Exit While i stedet for at bruge "ok = true".. men det bestemmer man selv..

hvem vil have point ?

Kan du ikke bare lukke den..
Det blev mere til en lille workshop end et spørgsmål, så for min skyld ingen alarm :o)

/Killer

tjah jeg er faktisk ligeglad hvis du føler for at give mig så gør du bare det.. men får jeg ikke noget så bliver jeg ikke sur.. :D hehe
/Leth