How to get name of file

Question

In a folder I have a file called "file1.grf"
There may also be a file called "file1_zx.grf"
I dont know the exact name - only that it will be like "file1_*.grf"
I have the path of the folder, and I know the name "file1.frg".
How do I get the name of the file "file1_zx.grf" if it exists?
I would like to have a function like
Public Function fileName(name as string, path As string) As string
that returns the proper name or blank if it does not exist.
I have rutines like - and I hope to make something similar:
Public Function file_exists(path As Variant) As Boolean
    Dim FS As Object
    file_exists = False
    Set FS = CreateObject("scripting.filesystemobject")
    If Not IsNull(path) Then
        If FS.FileExists(path) Then
            file_exists = True
        End If
    End If
End Function
Public Function folder_exists(path As Variant) As Boolean
    Dim FS As Object
    folder_exists = False
    Set FS = CreateObject("scripting.filesystemobject")
    If Not IsNull(path) Then
        If FS.folderexists(path) Then
            folder_exists = True
        End If
    End If
End Function

Answer 1

Hi,
<< How do I get the name of the file "file1_zx.grf" if it exists?
Before you get the name the file, first you need to be sure the file existed, then get the file name from the path. Here are ways you can refer to
' judge the file exists or not
Function IsFileExists(ByVal strFileName As String) As Boolean
If Dir(strFileName, 16) <> Empty Then
    IsFileExists = True
Else
    IsFileExists = False
End If
End Function
' judge the file exists or not
Function IsFileExists(ByVal strFileName As String) As Boolean 
Dim objFileSystem As Object 
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 
If objFileSystem.fileExists(strFileName) = True Then 
IsFileExists = True 
Else 
IsFileExists = False 
End If 
End Function
' Get the file name
Function GetFilenameFromPath(ByVal strPath As String) As String
' Returns the rightmost characters of a string upto but not including the rightmost '\'
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function
Sub Run()
   If IsFileExists("D:\vba\abc.txt") = True Then
   FileName = GetFilenameFromPath("D:\vba\abc.txt")
    MsgBox (FileName)
Else
       MsgBox "No releevant file"
    End If
End Sub
Hope this could help you.
Best Regards
Lan
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.