Excel VBA Directory assistance 2

[JAMES717]

I am trying to check to see if a directory exists. If it does not it needs to create the directory. If it does exists go to next procedure.

The code works if it does not exists, but does not work if the directory exists.

Code:

If Len(Dir("H:\Scorecards\")) = 0 Then
MkDir ("H:\Scorecards\")
End If

 

[xlbo]

Set a reference to MicrosoftScriptingruntime and use filesystemobject:

Set fso = New FileSystemObject

If fso.FolderExists("String of folder path") = False Then
    'Create folder path
    fso.CreateFolder ("String of folder path") 
End If

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[SkipVought]

Hi,

Try this...

    Dim oFSO, oFolder
    
    On Error Resume Next
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(folderspec)
    
    If oFolder = Empty Then
        'makedir
    End If

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[JAMES717]

I am getting a User-defined type not defined on

Set fso = New FileSystemObject

 

[xlbo]

Set a reference to MicrosoftScriptingruntime

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question

 

[TonyJollans]

To adapt your original so that it works, you should use:

[blue]If Len(Dir("H:\Scorecards\"[red],vbDirectory[/red])) = 0 Then
    MkDir ("H:\Scorecards\")
End If[/blue]

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website