Problem with DIR

S

SamMy

ChangeFileOpenDirectory _
"C:\Documents and Settings\Smith\My Documents\TXT\"
Dir (activedirectory & "*.doc")
fname = Dir

If in that directory (TXT) exists only one file, fname is empty. If there
are two or more files, then fname is the first filename it founds.

What's the problem with this?
 
H

Helmut Weber

Hi,
you are calling "dir" twice!
Dir (activedirectory & "*.doc") ' 1st time
fname = Dir ' 2nd time
Click to expand...

you need something like
fname = (activedirectory & "*.doc") '1st file

while fname <> ""
fname = dir ' successive files
wend
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Word macro that can call cells out of Excel for a find and replace 0
Problem with DIR 1
Working outlook via vba code with xlsx - error 0
VBA - exporting serial letters to single documents 0
Dir() not working in MS Word 2016 in MAC system 0
fname = Dir("C:\Bob\*.*") 1
list workbook names except one 2
Invoking "cmd" from VB macro 2

Top