Check if files exist or are open

[Westoner]

A number fo my macros fail during running, because the folder I am trying to create already exists or the file I am trying to open is already open.

Are there simple If/Then statements which would prevent the macro stopping in both cases?

Westoner

 

[Ruddles]

When you say "file", do you mean "workbook"?

Check for the existence of a directory as follows:-

If Dir(sFolder, vbDirectory)="" Then [COLOR=green]' doesn't exist
[/COLOR]

 

[JackDanIce]

Simple one to test if file is open:

If Not (Windows("my file.xls") Is Nothing) Then
   msgbox "File: ""my file.xls"" is open, macro stopping"
   Exit Sub
End If

 

[Westoner]

I have a command:

MkDir "C:\Test\" & Range("C2").Value & Range("D2").Value

I would like to alter the coding so that if the directory already exists it will open it instead.

Similarly, I have a command:

Workbooks.Open fileName:= "C\Test\" & Range("C2").Value & Range("D2").Value & "\" & Range("E2").Value & Range("D2").Value & ".xls"

I want to open the workbook, but if it is already open, I want to activate it.

I hope that this makes it a little clearer. Thanks for your responses.

Westoner