Membuat Direktori List dengan Visual Basic


Dim NamaFile As String

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdopen_Click()
Shell Text1.Text, vbNormalFocus
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If (Right(File1.Path, 1) = "\") Then
NamaFile = File1.Path + File1.FileName
Else
NamaFile = File1.Path + "\" + File1.FileName
End If
Text1.Text = NamaFile
End Sub