Membuat Direktori List dengan Visual Basic


Direktori List by Laurensius

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

Leave a Reply

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

WordPress.com Logo

You are commenting using your WordPress.com 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