Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
[I]Private Sub File1_Click() [/I] [B](<.....It usally highlights that)[/B] File1.Pattern = ("*.wmv;*.mp3;*.wma;*") Else: without File1.Pattern = ("*.*") End If If Right(File1.Path, 1) <> "\" Then FileName = File1.Path + "\" + File1.FileName Else FileName = File1.Path + File1.FileName End If End Sub The Error is Runtime 424 Object Required and i … |