En enkel fråga. Hur kollar man om en mapp efter App.Path existerar? Om inte skall den skapas.

Private Sub Command1_Click()
Dim FileNum As Long
FileNum = FreeFile
On Error Resume Next
Open App.Path & "\Sven\test.txt" For Input As #FileNum
Close #FileNum
If Err = 76 Then MkDir (App.Path & "\Sven")
Err.Clear
End Sub

Tack för det!

Finns vissa svagheter i exemplet,men enl denna princip.