Membuat Direktori List dengan Visual Basic

Direktori List by Laurensius

Dim NamaFile As String

Private Sub cmdexit_Click()
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
NamaFile = File1.Path + "\" + File1.FileName
End If
Text1.Text = NamaFile
End Sub


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s