| View previous topic :: View next topic |
| Author |
Message |
Hack-Addict
Master Cheater
 Reputation: 0
Joined: 20 Nov 2007
Posts: 287
|
 Posted: Fri Aug 22, 2008 12:13 am Post subject: One more VB question (sorry) |
 |
|
Hey, how would I make this code load all files, E.X: exe, ink, ct, anything?
| Code: | On Error GoTo ErrorHandler
Dim Contentfile
Me.CommonDialog1.Filter = "All files (*.all files)|*.all files"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Close #2
ErrorHandler:
Select Case Err.Number
Case Else
MsgBox "You dident load"
End Select
End Sub |
Thanks to evilhottness for the part where it says "text1.text = commondialog1.filename" thanks. 
_________________
|
|
| Back to top |
|
 |
EvilHottness
Advanced Cheater
 Reputation: 0
Joined: 29 Apr 2008
Posts: 64
Location: Co
|
| Posted: Fri Aug 22, 2008 12:14 am Post subject: |
|
|
I told you in another post
_________________
|
|
| Back to top |
|
|
Symbol
I'm a spammer
![]() Reputation: 0
Joined: 18 Apr 2007
Posts: 5094
Location: Israel.
|
| Posted: Fri Aug 22, 2008 12:16 am Post subject: |
|
|
| *.*, * is a wild card.
|
|
| Back to top |
|
|
EvilHottness
Advanced Cheater
Reputation: 0
Joined: 29 Apr 2008
Posts: 64
Location: Co
|
| Posted: Fri Aug 22, 2008 12:16 am Post subject: |
|
|
Me[DOT]CommonDialog1[DOT]Filter = "All Files (*[DOT]*)|*[DOT]*"
Replace [DOT] With .
_________________
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
