Henvise til en mappe på harddisken

MkDir kan bruges direkte i vba!~)

Private Sub OpretMappe_Click()
MkDir "c:/test/"
End Sub

Private Sub ErDerNogetIMappen_Click()
Dim MyFile As String
MyFile = Dir("c:/test/")
if isnull(MyFile) then
msgbox "Mappen er tom"
else
msgbox "Mappen er ikke tom"
end if
End Sub

Denne tekst:

"når jeg opretter en post så kommer der en mappe på min harddisk med samme navn"

opfatter jeg, somk iom der skal oprettes en ny mappe, og ikke blor kontrollere om den findes:

Private Sub felt1_BeforeUpdate(Cancel As Integer)
Dim VARa As String
Dim VARb As String
VARa = InputBox(Prompt:="Indtast på hvilket drev mappen skal oprettes:", Title:="Drev", Default:="")
VARb = Me.felt1
If Dir(VARa & ":" & "\" & VARb, vbDirectory) = "" Then
MkDir VARa & ":" & "\" & VARb
MsgBox "Mappen" & vbNewLine & vbNewLine & VARa & ":" & "\" & VARb & vbNewLine & vbNewLine & "er nu oprettet."
Else:
MsgBox "Mappen eksisterer i forvejen."
Exit Sub
End If

End Sub

Det virker perfekt

Tak for point :o)

Hvis det altid er på samme drev, kan du blot erstatte VARa med et bogstav repræsenterende drevet, eller sætte default til det drev, som du oftest vil oprette mappen på.

Godt du fik MkDir og Dir til at virke!~)

Forresten så betyder det, at Dir er tomt ikke, at det ikke er oprettet... men det betyder mindre da mkdir bare opretter oveni...