Find specific file exist in a folder

[shijukonline]

Hi,

How I can write a descriptive program to check whether any .mp4 file exist in a particular folder starting with a specific name like 'clip' (eg. clip0019.mp4)

the below code shows clip0019.mp4 exists if the file is in c folder. I want to check any file starting with clip in .mp4 format exist in c: folder

Code:

filespec = "C:\clip0019.mp4" Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then msg = filespec & " exists." Else msg = filespec & " doesn't exist." End If MsgBox (msg)

Please help me for this

Thanks in advance.

[surya_7mar]

Code:

sFolderName = "c:\foldername" Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(sFolderName) Then Reporter.ReportEvent micWarning, "Unable to Get The Files", "Unable to get the File from the location "&sFolderName&". This may be due to the wrong foldername. Looking for. " End If Set fBefore = fso.GetFolder(sFolderName) Set fcBefore = fBefore.Files For each fb in fcBefore If Left(fb.Name, 4) = "clip" and Right(fb.Name,4) = ".mp4" Then print fb.Name End If Next

This will print all the files in a folder where file name starts with "clip" and endd with ".mp4"

---

This will print all the files in folder where the file name starts with "clip" and ends with ".mp4"

Code:

sFolderName = "c:\foldername" Set fso = CreateObject("Scripting.FileSystemObject") Set fBefore = fso.GetFolder(sFolderName) Set fcBefore = fBefore.Files For each fb in fcBefore If Left(fb.Name, 4) = "clip" and Right(fb.Name, 4) = ".mp4" Then print fb.Name End If Next

---

THis will print all the files in a folder starts wirh clip and ends with .mp4

Code:

sFolderName = "c:\foldername" Set fso = CreateObject("Scripting.FileSystemObject") Set fBefore = fso.GetFolder(sFolderName) Set fcBefore = fBefore.Files For each fb in fcBefore If Left(fb.Name, 4) = "clip" and Right(fb.Name, 4) = ".mp4" Then print fb.Name End If Next

---

This will print all the files in folder where the file name starts with "clip" and ends with ".mp4"

Code:

sFolderName = "c:\foldername" Set fso = CreateObject("Scripting.FileSystemObject") Set fBefore = fso.GetFolder(sFolderName) Set fcBefore = fBefore.Files For each fb in fcBefore If Left(fb.Name, 4) = "clip" and Right(fb.Name, 4) = ".mp4" Then print fb.Name End If Next

--------------------------------------------------------------------------------