I have figured out how to have Excel create a directory and save a CSV
of the current workbook.

Now the macro hangs if the directory already exists. How do I check
for the directory and create only if needed.

TIA

Try this function:

Function DirExists(PathName As String) As Boolean
Dim temp As Integer
On Error Resume Next
temp = GetAttr(PathName)
If Err.Number = 0 Then
DirExists = True
Else
DirExists = False
End If
On Error GoTo 0
End Function

--
Dan

On Dec 17, 3:07 pm, Rex Mundi <jimb...@gmail.com> wrote:
> I have figured out how to have Excel create a directory and save a CSV
> of the current workbook.
>
> Now the macro hangs if the directory already exists. How do I check
> for the directory and create only if needed.
>
> TIA

If Dir("c:\aa\nul") = "" Then MkDir "c:\aa"

--
Jim
"Rex Mundi" <(E-Mail Removed)> wrote in message
news:9e1776aa-bea1-439e-ab3a-(E-Mail Removed)...
|I have figured out how to have Excel create a directory and save a CSV
| of the current workbook.
|
| Now the macro hangs if the directory already exists. How do I check
| for the directory and create only if needed.
|
| TIA

Hi,
- Add a reference to the Microsoft Scripting Runtime library (menu Tools >
Reference).
- use someth8ing like:

Sub test()
Dim fso As Scripting.FileSystemObject
Dim path As String

path = "c:\test"
Set fso = New Scripting.FileSystemObject

If Not fso.FolderExists(path) Then 'does NOT exist, then create
''' create directory here
End If

''' now your FIleSave code
End Sub

--
Regards,
Sébastien
<http://www.ondemandanalysis.com>


"Rex Mundi" wrote:

> I have figured out how to have Excel create a directory and save a CSV
> of the current workbook.
>
> Now the macro hangs if the directory already exists. How do I check
> for the directory and create only if needed.
>
> TIA
>

Just create it, don't bother checking

On Error Resume Next
MkDir "C:\test\subdir"
On Error Goto 0

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Rex Mundi" <(E-Mail Removed)> wrote in message
news:9e1776aa-bea1-439e-ab3a-(E-Mail Removed)...
>I have figured out how to have Excel create a directory and save a CSV
> of the current workbook.
>
> Now the macro hangs if the directory already exists. How do I check
> for the directory and create only if needed.
>
> TIA

On Dec 17, 4:40 pm, "Jim Rech" <jrr...@live.com> wrote:
> If Dir("c:\aa\nul") = "" Then MkDir "c:\aa"
>



Wow!

That works great!