사용자:Cha5126568/연습장

Option Explicit
 
Private Sub Command1_Click()
    Dim Temp As String, FileName As String
    Temp = Text1.Text: List1.Clear
    
    If Right$(Text1.Text, 1) <> "\" Then
        Temp = Temp & "\"
    End If
    
    FileName = Dir(Temp, vbNormal + vbHidden + vbSystem)
    
    Do While Len(FileName)
        List1.AddItem FileName
        FileName = Dir
    Loop
End Sub