Nedanstående sub skall kontrollera om "data"-mappen finns, och
om det inte finns, skapa den. Av någon okänd anledning verkar
det som om inte "On Error" raden fungerar, utan ett "vanligt" fel-
meddelande kommer om inte mappen finns??!?!
Någon som har några goda råd?

/Michael


Sub KontrolleraDataMapp(root As String)
On Error GoTo Handler
ChDir (root + "\data")
Exit Sub
Handler:
MkDir (root + "\Data")
Resume Next
End Sub

Går det inte bara att skriva så här. Du kan ju testa och se om det funkar. Jag tror att det ska funka.

Sub KontrolleraDataMapp(root As String)
If Dir(root & "\data\") <> "" Then
Exit Sub
Else
MkDir (root & "\data\")
End If
End Sub

MVH
Petter

Denna kod kanske fungerar bättre... :-)


Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not (objFSO.FolderExists("c:\test\")) Then
objFSO.CreateFolder ("c:\test\")
End If

/Janne

Hej Petter!
Ditt förslag fungerar första gången (om inte mappen finns), men när
den finns (och är tom) fungerar det sämre.....

/Michael

Sub KontrolleraDataMapp(Root As String)
If Len(Dir(Root & "\data", vbDirectory)) = 0 Then
MkDir Root & "\data\"
End If
End Sub

Tack Andreas!
Detta fungerade ju perfekt, är enkelt och kortast kod!!!

>...kortast kod!!!

Sub KontrolleraDataMapp(Root As String)
If Len(Dir(Root & "\data", vbDirectory)) = 0 Then
MkDir Root & "\data\"
End If
End Sub

är inte allra kortast.

Sub KontrolleraDataMapp(Root As String)
If Len(Dir(Root & "\data", vbDirectory)) = 0 Then MkDir Root & "\data\"
End Sub

Hade varit kortast. hihi... :)

/Niklas Jansson

OK, jag ger mig!!!

Thanks mates!

Det ska ju vara läsbart oxå. Tycker if-satserna blir lättlästare om man bryter dem.

Okej, det innebär två extra rader. Men det är det värt.

;O)