How to capture file name in a folder?

[Gregg]

In a folder exists one .ppt file and a non .ppt file. In vba I want to
capture the name of the ppt file. Can someone tell me the best way to
do that?

For example, the path is c:\whatever and the ppt name might be
anything. I just want the name of the ppt file, not the other file.

Thanks.

[Jim Cone]

Gregg,

Sub FindFile()
Dim strPath As String
Dim strFile As String
strPath = "C:\whatever\*.ppt"
strFile = Dir(strPath)
MsgBox strFile
End Sub

Jim Cone
San Francisco, USA

"Gregg" <[email protected]> wrote in message
news:[email protected]...
In a folder exists one .ppt file and a non .ppt file. In vba I want to
capture the name of the ppt file. Can someone tell me the best way to
do that?

For example, the path is c:\whatever and the ppt name might be
anything. I just want the name of the ppt file, not the other file.

Thanks.

[Roy Harrill]

Try this --

Sub GetPPT()

Dim f as string
f = Dir("C:\whatever\*.ppt")

End Sub


"Gregg" <[email protected]> wrote in message
news:[email protected]...
> In a folder exists one .ppt file and a non .ppt file. In vba I want to
> capture the name of the ppt file. Can someone tell me the best way to
> do that?
>
> For example, the path is c:\whatever and the ppt name might be
> anything. I just want the name of the ppt file, not the other file.
>
> Thanks.
>

[Gregg]

Thanks, Jim. I did keep trying and had come up with the following, but
I like yours much better. Thanks.

Dim sFileNm As String
With Application.FileSearch
.NewSearch
.LookIn = "c:\whatever"
.SearchSubFolders = False
.FileName = "*.ppt"
.Execute
sFileNm = Right(.FoundFiles(1), _
(Len(.FoundFiles(1)) - _
InStrRev(.FoundFiles(1), "\")))
End With

Jim Cone wrote:
> Gregg,
>
> Sub FindFile()
> Dim strPath As String
> Dim strFile As String
> strPath = "C:\whatever\*.ppt"
> strFile = Dir(strPath)
> MsgBox strFile
> End Sub
>
> Jim Cone
> San Francisco, USA
>
> "Gregg" <[email protected]> wrote in message
> news:[email protected]...
> In a folder exists one .ppt file and a non .ppt file. In vba I want to
> capture the name of the ppt file. Can someone tell me the best way to
> do that?
>
> For example, the path is c:\whatever and the ppt name might be
> anything. I just want the name of the ppt file, not the other file.
>
> Thanks.

[Gregg]

Thanks, Roy. I went back and read about the DIR function. Nice.

Roy Harrill wrote:
> Try this --
>
> Sub GetPPT()
>
> Dim f as string
> f = Dir("C:\whatever\*.ppt")
>
> End Sub
>
>
> "Gregg" <[email protected]> wrote in message
> news:[email protected]...
> > In a folder exists one .ppt file and a non .ppt file. In vba I want to
> > capture the name of the ppt file. Can someone tell me the best way to
> > do that?
> >
> > For example, the path is c:\whatever and the ppt name might be
> > anything. I just want the name of the ppt file, not the other file.
> >
> > Thanks.
> >