check if folder is present

[deltaair]

any way to code a subroutine to check if a folder is present or not. i know how to make the folder, but it doesn;t work if its already there...

 

[PHV]

If Dir(strDirPath, vbDirectory) <> "" Then
MsgBox strDirPath & " already exists"
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[AnotherHiggins]

I'm not sure if this is 'best practice', but I usually use something like this:

...

[green]'   Create new folder if necessary[/green]
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
objFSO.CreateFolder _
    "C:\SubFolder\" & Format(now(), "yyyy-mm") & "\"
On Error GoTo 0
Set objFSO = Nothing

...

[tt]_____
[blue]-John[/blue][/tt]

Help us help you. Please read FAQ181-2886 before posting.

 

[PHV]

And here my own procedure (emulating the mkdir -p unix command):
Sub myMkDir(strFolderName As String)
On Error Resume Next
Dim a, t As String, i As Integer
a = Split(strFolderName, "\")
t = a(0)
For i = 1 To UBound(a)
t = t & "\" & a(i)
MkDir t
Next
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886