Trouble with Dir()

[TurtleM]

Hello everyone,

I am having trouble with the Dir function. This is the first time I have used it, and I don't think I understand where it searches.

When I type:

Dim Path As String
Path = Application.ActiveWorkbook.Path
MsgBox Path

The Messagebox returns a path.

However adding Dir:

Dim Path As String
Dim str As String
Path = Application.ActiveWorkbook.Path
MsgBox Path
str =Dir(Path)
MsgBox str

The second MessageBox is empty.

Why is Dir not able to use the given path?

 

[Norie]

What do you expect Dir to return?

All you have passed it is a directory, if you wanted to use it to find files you would need to pass it a filename or pattern.

For example this will return the name of the first file found in the same directory as the active workbook.

Dim Path As String
Dim str As String

    Path = Application.ActiveWorkbook.Path
    MsgBox Path
    str = Dir(Path & "\*.*")
    MsgBox str

 

[Yongle]

what exactly are you trying to do?

 

[TurtleM]

Thank you for this explanation. I was trying to copy an example from the web and it didn't work, but your code does. Thanks again!