Keskustelu: Koodit: VB6: Yksinkertainen tiedostoselain

Tällä voi selata asemia, tiedostoja ja kansioita. Kun kaksoisklikkaat tiedostoa, tiedosto avataan ja ohjelma sulkeutuu. Lisää formille DriveListBox, DirListBox ja FileListBox. Huom! Koodi ei sisällä minkäänlaista virheidenkäsittelyä, joten ohjelma antaa vb:n 'Device Unavailable' virheen jos käytät asemaa jossa ei ole diskettiä/romppua tms. Ei välttämättä kauhean hyödyllinen ohjelma, mutta opettaa näitten kontrollien ja shell-funktion käyttöä.

Formin koodi

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

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

Private Sub File1_DblClick()
Shell Dir1.Path & "\" & File1.FileName, vbNormalFocus
End
End Sub