VBA Macro that does not run other macros unless file is present

[LNG2013]

I have a macro that runs many more macros (subs) under it.

However, I would like to have the macro only continue to run the subs under it if the folder the macro is in contains a file known as test.csv.

Otherwise, I would want it to end the macro and not execute the rest.

 

[wigi]

For instance:

Const sMyFolder as String = "C:\My files\"
If Len(Dir(sMyFolder & "test.csv")) Then
   Call MyMacro 'this macro will be executed if the file is there
End If

 

[LNG2013]

For instance:

Const sMyFolder as String = "C:\My files\"
If Len(Dir(sMyFolder & "test.csv")) Then
   Call MyMacro 'this macro will be executed if the file is there
End If

Thanks Wigi, but how could I do the same thing using the folder structure the macro is running in?

Like right now it is c:/Macro/files
But it runs on different computers who might have a setup like m:/test/fgdfg/

Is there a term for this ? Folder/Structure independent?

 

[wigi]

Hello

If you had followed other topics that are being answered right now (or use the search function), you would have found:

http://www.mrexcel.com/forum/showthread.php?t=565100

 

[LNG2013]

Hi Wigi -

I tried this code as you recommended, substituting out the C:/ with ThisWorkbook.Path.
Unfortunately I get: Compiler Error. Constant expression required.

Const sMyFolder As String = ThisWorkbook.Path
If Len(Dir(sMyFolder & "Test5.csv")) Then
   Call AMasterCall 'this macro will be executed if the file is there
End If

Hello

If you had followed other topics that are being answered right now (or use the search function), you would have found:

http://www.mrexcel.com/forum/showthread.php?t=565100

 

[wigi]

In that case, replace

Const sMyFolder As String = ThisWorkbook.Path

with

Dim sMyFolder As String
sMyFolder = ThisWorkbook.Path

 

[LNG2013]

Cool Thank you!

I ended up using this code, as it allowed me to display the dialogue for 6 seconds also, then close the macro.

Sub Edit()

If Dir(ThisWorkbook.Path & "\Test5.csv") <> "" Then
  Call AMasterCall
 Else
CreateObject("WScript.Shell").Popup "Support file Test5.csv is missing from the folder" & ". Macro will now close" & ".", 6, "Missing File"
Application.DisplayAlerts = False
    Application.Quit
End If

End Sub

In that case, replace

Const sMyFolder As String = ThisWorkbook.Path

with

Dim sMyFolder As String
sMyFolder = ThisWorkbook.Path