Wildcard in directory Dir function

[JeroenMioch]

Hi guys,



My code underneath works like a charm except when i put the wildcard after the notifications directory.
At the place of the wildcard is a directory wich holds the current year.
Ive tryed many different things like *.* and & " * " &. But every time im getting an ivalid use of null or type mismatch error. The year directory is the current year but its just four digits as well, so im guessing
i dont have to dimension anything as numbers.

Anyways, any ideas on this ?

If Len(Dir("I:\Sec\Notifications\*\Parking report * '" & Me.Pnumber & "'.pdf")) = 0 Then   
Me.chkmLetter = False
Else
Me.chkmLetter = True
End If

[ItsMe]

I usually iterate the directory and loop through the iteration. Never tried using a wildcard in a path. Anything between quotes should be literal text.

[JeroenMioch]

Sorry for the late reply but im not sure what you mean by looping through the directory.
That is, i know what iteration means but how this works im not sure.

Can you perhaps give me an example ?

Thanks

[John_G]

I don't think you can use a wildcard character in that context. I tried something similar with DIR in the command prompt window, and it didn't work there, either.

[JeroenMioch]

Hi John and thanks for the reply.

I can use a wildcard in the filename (see my code).
That makes me think a wildcard in a DIR must be possible. However if you can't make it work then i certainly can't

Do you have any suggestions on how to solve this ?
Every year a new directory is made. And i want the file to be checked in all directory's.

[June7]

No wildcard in path, only in file name.

See if this helps http://www.allenbrowne.com/ser-59.html

[ItsMe]

I have some examples iof iteration and looping. Basically, iterate to understand what is in the folder. Then, with your list, loop through.

I think I have a sample that does both simultaneously. That will probably suit your need. I will post up when I get back to my desk later this evening.

[ItsMe]

This isn't exactly the code I was looking for. But, it shows how to use the FilesystemObject Library to instantiate file and folder objects. With that, you can get the members of objects within a directory. You will have to use early binding and make a reference.

'Delete the PDF files in the temp folder
Dim strFile As String
    strFile = \\Server\Folder\Temp
Dim fsoFile As New FileSystemObject
Dim objFolder As Folder
Dim objFile As File
    Set objFolder = fsoFile.GetFolder(strFile)
    
        For Each objFile In objFolder.Files
        
            If InStr(objFile.Name, ".PDF") Then
                objFile.Delete True
            End If
        
        Next
    
    Set objFolder = Nothing
'end 'Delete the PDF files in the temp folder

Edit: Looking at the code here, I use the word file to describe things that are actually folders. A little confusing, sorry.