Check if file exists (allows users to input file path in cell)

Please Login or Register  to view this content.

The above code can find out if a file exists and output the result in row C when I hard code the path into
LPath = "C:\Users\Admin\Desktop"
However, I want to let the user input the path in, say cell D1 so that there is no need for the user to modify the VBA code
I tried replacing with LPath = Range("D1").Value
But it does not work
What should I do to allow the user to input the path in cell D1 ?

Originally Posted by macropod

Since you're automating Word, why not simply have the user use Word's FileOpen dialog to select the document? That way, you don't need to test for the file's existence.

Because the user has the list of file names (stored in row B) in an Excel file and the user wants to check if any of the file is missing in a particular folder (the folder contains all the word files (but a few are missing) with the file names in that row).

Originally Posted by macropod

So what is it about inserting the filepath in cell D1 that didn't work?

The VBA failed to find any file when using LPath = Range("D1").Value. The output is No for every file.
But the VBA could output the file that exists as Yes when I used LPath = "C:\Users\Admin\Desktop".

Originally Posted by macropod

Since the path is missing the terminating '\' in the macro, if that's what you input into D1, it's not likely to work in either, since your code doesn't supply it anywhere else.

Thanks. It works now.