Way to get the filename with dir

Okay, not asking anything, just giving a tip.

If you're using dir to get filename in a directory, but don't want to get the path in the filename, you can try following:

'we suppoce Directory is a string that contains the directory we want to look for
'add listbox and modify this as you like or make it a function
    Dim Filename As String
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
    Filename = Dir(Directory & "*.*", 0)
    Do While Filename <> ""
        Filename = Right(Filename, Len(Filename) - Len(Directory)
        Select Case Filename
             Case Not ".", Not ".."
                 List1.AddItem Filename
        End Select
        Filename = Dir
    Loop

I'm just get bored for some people asking all the time on how to do this
Hope they're wise enough to pop-up in here today

Add your own tips here if you know usually asked one and if you like to

[jbart]

Hi. There are also several useful methods of the FileSystemObject that can extract parts out of a path. Instead of writing a loop to pull out the name or extension, just try the following.

Private Sub Command1_Click()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
 
'To get the file extension from a path
MsgBox fs.GetExtensionName("c:/extension.txt") ' returns txt

'To get the filename only from a path, no extension.
MsgBox fs.GetBaseName("c:/extension.txt") ' returns extension 

'To get the filename and extension from a path.
MsgBox fs.GetFileName("c:/extension.txt") ' returns extension.txt

'To get the drive name from a path.
MsgBox fs.GetDriveName("c:/extension.txt") ' returns c:
End Sub