• Home
 · 
• Miscellaneous
 · 
• This code will let you go through whole computer to look for almost any file and play it or look at

This code will let you go through whole computer to look for almost any file and play it or look at

This code will let you go through whole computer to look for almost any file and play it or look at it or whatever in vb. The code is very

Rate This code will let you go through whole computer to look for almost any file and play it or look at

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'set the OLE SizeMode to autosize
Option Explicit
Dim sd As String
Dim dd As String
Dim pp As String

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

Private Sub Drive1_Change()
    Dir1.Path = Drive1.List(Drive1.ListIndex)
End Sub

Private Sub File1_Click()
    sd = File1.List(File1.ListIndex)
    dd = Dir1.List(Dir1.ListIndex)
    pp = dd
    If Right(dd, 1) <> "\" Then
        pp = pp & "\"
    End If
    pp = pp & sd
    Label1.Caption = pp
    OLE1.CreateEmbed pp
End Sub


Private Sub Form_Load()
    Label1.Caption = OLE1.SourceDoc
End Sub

Private Sub OLE1_Click()
    Label1.Caption = OLE1.OLEType

End Sub