Check folder for file exists, if - run set of subs, else - run different set of subs

[kstate1988]

I have a report that i want to run based on a files existence in a folder on my desk top.

My desired result:

Click on the "ActiveX Box",

Macro would run to determine if file "Dealer Inventory" exist.

If, it exist

Then, run Private Sub RunPLTS()

Else, run Private Sub RunNOPLTS()

End

Would appreciate any help provided!

 

[shg]

  Dim sFile As String
  
  sFile = "C:\somePath\someFile"
  If Len(Dir(sFile)) Then RunPLTS Else RunNOPLTS

 

[kstate1988]

shg,

Tried code and cannot get it to work.

This is the path I have to use to get to the "Inventory" file.

(Environ("USERPROFILE") & "\Desktop\GM Inventory Report\Inventory")

It keeps kicking an error.

Also, when the code does not error it directs me to the Macros box to choose which macro I wish to run, not automatic?

Thank for the help.

 

[shg]

"Inventory" is an odd filename; it has no extension.

 

[kstate1988]

It pulls the file and puts it into a workbook with no issues?

C:\Users\R000180\Desktop\GM Inventory Report

This is the path I get when I right click on file name.

R000180 = Is my employee number for this computer.

 

[shg]

You probably have Windows configured to suppress extensions for known filetypes. Add the extension in the code.

 

[kstate1988]

Thank You all for the responses.

I finally figured it out and this is what I came up with.

Had to have modify my file path due to a corporate computer.

Sub Checkfile()


Dim FilePath As String
FilePath = (Environ("USERPROFILE") & "\Desktop\GM Inventory Report\Inventory.csv")
If Dir(FilePath) <> "" Then
Application.Run "RunPLTS_Click"
Else
Application.Run "RunNOPLTS_Click"
End If
End Sub

 

[shg]

Glad you got it sorted.