help with wildcard concatenation 2

[chilly442]

I need to modify the following code to look up this file with a wildcard for the date, and if it exists, then open the ppt. Nothing that I have tried has worked.

Sub PlantFileExists()
Dim find
Dim file As String
file = "J:\ESD\Reports\Data\Plant\PlantPowerPoint10022008.ppt"
Set find = CreateObject("Scripting.FileSystemObject")
If Not find.FileExists(file) Then
MsgBox file & " was not located.", vbInformation, "File Not Found"
Else
MsgBox file & " has been located.", vbInformation, "File Found"
Presentations.Open FileName:="J:\ESD\Reports\Data\Plant\PlantPowerPoint10022008.ppt", ReadOnly:=msoFalse
End If
End Sub

Any help is always greatly appreciated!!!
...And worth a pretty star!
Thanks,
Chilly442

 

[ettienne]

Try the Dir() function.

 

[chilly442]

Is this what I am looking for?
It still says that it can't find the file.

Sub PlantFileExists()
Dim find
Dim file As String
file = Dir("J:\ESD\Reports\Data\Plant\PlantPowerPoint10072008.ppt")
Set find = CreateObject("Scripting.FileSystemObject")
If Not find.FileExists(file) Then
MsgBox file & " was not located.", vbInformation, "File Not Found"
Else
MsgBox file & " has been located.", vbInformation, "File Found"
Presentations.Open FileName:=Dir("J:\ESD\Reports\Data\Plant\PlantPowerPoint.ppt"), ReadOnly:=msoFalse
End If
End Sub

 

[ettienne]

Dir returns "" if the file is not found.

file = Dir("J:\ESD\Reports\Data\Plant\PlantPowerPoint10072008.ppt")
if file <> "" then
'do your stuff
end if

 

[chilly442]

file = Dir("J:\ESD\Reports\Data\Plant\PlantPowerPoint*.ppt")

file returns the name of the file "PlantPowerPoint10072008.ppt
Then it drops down and says that it can't find the file:"PlantPowerPoint10072008.ppt

I am still not sure what is going on?

Thanks in advance.
Chilly442

 

[Andrzejek]

What do you mean by

Then it drops down

???

Have fun.

---- Andy

 

[chilly442]

then it drops down to the msg box:

MsgBox file & " was not located.", vbInformation, "File Not Found"
Else

 

[ettienne]

Untested

Sub PlantFileExists()

   Dim file As String
   file = "J:\ESD\Reports\Data\Plant\PlantPowerPoint10072008.ppt"
   If Dir(file)="" Then
      MsgBox file & " was not located.", vbInformation, "File Not Found"
   Else
      MsgBox file & " has been located.", vbInformation, "File Found"
      Presentations.Open FileName:=file, ReadOnly:=msoFalse
   End If
End Sub

 

[PHV]

A starting point:

path = "J:\ESD\Reports\Data\Plant\"
file = Dir(path & "PlantPowerPoint*.ppt")
If file <> "" Then file = path & file
...{/code]


Hope This Helps, PH.
FAQ219-2884
FAQ181-2886