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

by matt (8 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 29^th October 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



'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

Download this snippet Add to My Saved Code

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

No comments have been posted about This code will let you go through whole computer to look for almost any file and play it or look at. Why not be the first to post a comment about 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 Comments

Post your comment

Difficulty