사용자: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