OPEN DIALOG.... NOW !!!!!!!!!!!!

ALEX_GRIM · December 8th, 2004, 05:07 AM

OK. i've been trying for days to get this, and i'm about to strangle someone. i had visual studio 2005 beta installed..... MY FIRST MISTAKE.
so i got to reinstall xp, then visual basic6. now the same problem....
my common dialog wont open a file in my text editor.... instead it's opening the full path, (or rather DISPLAYING the path to the file i select). i finally got to figure out how to write a "save file command" or whatever you call it, but my open file isn't working, and i've been to a hundred of theese kinds of forums, and tutorial, faq, help, knowlege base sites, because i didn't want to bother anyone else if i could figure it out, but i give up. here's my latest attemt at the code, if someone can just paste a simple version of the working code in reply, i'd be gratefull. please do not show me a big fancy, multi-function code-guru version, i need to see what the bare minimum code is FIRST, so i better understand what MAKES the BASIC function work. then i will have no prob adding stuff like the filter and such. thanks.

begin my code;

---------------------------------------------------------------------
Private Sub Command1_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close 1
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowOpen
Text1.Text = (FileName)
End Sub

Private Sub Command3_Click()
Text1.Text = ""
End Sub

Private Sub Command7_Click()
End
End Sub
---------------------------------------------------------------------

here's a pic of what the layout is so far....

<a href="www.download.grimmusic.com/text.jpg"><img src="www.download.grimmusic.com/text.jpg" width="100%" hieght="100%" border= "0">

[email protected]
WWW.GRIMMUSIC.COM

ALEX_GRIM · December 8th, 2004, 10:26 AM

hey, for those of you who are also having trouble with this issue, an admin who goes by;

-----------------
-herilane--------
-Unashamed geek--
-Super Moderator-
-* Expert *------
-----------------

from http://www.visualbasicforum.com helped me fix this to work with my config;

---------------------------------------------------------
Private Sub Command2_Click()

CommonDialog2.Filter = "Text Files (*.txt)|*.txt|All Files|*.*|HTML|*.HTML"
CommonDialog2.InitDir = "X:\"
CommonDialog2.ShowOpen

Dim strPath As String
Dim strText As String

strPath = CommonDialog2.FileNAME
Open strPath For Input As 1
Line Input #1, strText
Text1.Text = strText
Close #1

End Sub
-------------------------------------------------------------------

i hope this helps you guys.

http://www.grimmusic.com

[email protected]
WWW.GRIMMUSIC.COM