Wildcard for FileName

[ter79]

I have the following code that I'm using to see if any files with the .txt extension exists. When I run the code it keeps coming back that the file does not exists when in there is a .txt file in the directory.

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject&quot
If fso.FileExists("C:\CABC Mailing Lists\Outbound\*.txt&quot Then
MsgBox "File Exists"
Else
MsgBox "File Does Not Exist"
End If


What am I doing wrong? Thanks in advance!

 

[MisterNiceGuy]

The method you are calling does not support wildcards. It requires the exact path of a specific file. The code below should get you moving foward again.

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject&quot
Set folder = fso.getfolder("C:\CABC Mailing Lists\Outbound&quot
For Each File in Folder.Files
If fso.GetExtensionName(File)="txt"Then
MsgBox "File Exists"
Found=vbTrue
End If
Next
If Found<>vbTrue Then MsgBox &quot;File Does Not Exist&quot;

 

[ter79]

Thanks