Dir command failing with Type mismatch Error

[Robyn_P]

Hey all,

I'm hoping someone can help.

I'm trying to do something very simple.

If Len(Dir(WoPath, vbDirectory)) = 0 Then MkDir (WoPath)

But it's failing with Runtime error 13 - Type Mismatch and I have no idea why. There are spaces in the string so I've also tried the following with the same error:

If Len(Dir(""" & WoPath & """, vbDirectory)) = 0 Then MkDir (WoPath)

If Len(Dir("'" & WoPath & "'", vbDirectory)) = 0 Then MkDir (WoPath)

The string eventuates to "\\<SERVER NAME>\Biomass_Main$\17. AIT\01 IPS-ACS documents and Photos\01_IPS Plans\01_SM\12877654_PXMZPY EQUIPMENT PANEL THERMAL EQUIP…" which is 147 characters long and the directory does not exist yet.

If anyone has any ideas it would really be appreciated. I've already tried a compact and repair as well.



Cheers
Robyn

[Robyn_P]

To add. It fails on the Dir command. If you just execute that separately you still get the error

[Micron]

Sometimes it isn't the code you show (where it balks) - it's what comes before it. Try substituting a valid existing path or perhaps examine the contents of your variable before the Dir function line is processed; assuming you did declare it as a string variable to start with.

[ranman256]

DIR went out back when windows was born....try:

if not DirExists(wopath) then MkDir wopath

Public Function DirExists(ByVal pvDir) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
DirExists = fso.FolderExists(pvDir)
Set fso = Nothing
End Function

or even:

Public Sub MakeDir(ByVal pvDir)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(pvDir) Then fso.CreateFolder pvDir     'MkDir pvDir
Set fso = Nothing
End Sub

[Robyn_P]

Great, that worked perfectly. Thank-you