Text file

hi, Shouldn't this open a *.txt -file?
(because it doesn't..)

Private Sub Code_Click()

Dim filnummer As Integer
Dim filnavn As String

'Unikt filnummer findes
filnummer = FreeFile
filnavn = "C:\Documents and Settings\whiteraven\Dokumenter\game\Code.txt"

Open filnavn For Input As #filnummer
Close #filnummer

End Sub

Quote:

---

Originally posted by whiteraven
hi, Shouldn't this open a *.txt -file?
(because it doesn't..)

Private Sub Code_Click()

Dim filnummer As Integer
Dim filnavn As String

'Unikt filnummer findes
filnummer = FreeFile
filnavn = "C:\Documents and Settings\whiteraven\Dokumenter\game\Code.txt"

Open filnavn For Input As #filnummer
Close #filnummer

End Sub

---

You are opening it. For the app, that is. You can't see it. Then you're closing it. :)

Are you looking to shell the file so that you can visibly see it?

okay, I kinda thought so.. Isn't there a way to make it open the .txt -file so that it comes visible?

I just wan't to make it open the .txt -file so that I can see it. I don't know why, but I just thought that would be really cool.. hehe

VB Code:

'Make a new project. To the form add a CommonDialog control, a text box and a command button. 
 
'Code:
Option Explicit
 
Private Sub Command1_Click()
    Dim FileName As String
    Dim F As Integer
    CommonDialog1.ShowOpen
    FileName = CommonDialog1.FileName
    F = FreeFile
    Open FileName For Input As #F
    Text1.Text = Input$(LOF(F), F)
    Close #F
End Sub

Thx! I'll try that, damn this forum rox! ;)

Quote:

---

Originally posted by peet

VB Code:

'Make a new project. To the form add a CommonDialog control, a text box and a command button. 
 
'Code:
Option Explicit
 
Private Sub Command1_Click()
    Dim FileName As String
    Dim F As Integer
    CommonDialog1.ShowOpen
    FileName = CommonDialog1.FileName
    F = FreeFile
    Open FileName For Input As #F
    Text1.Text = Input$(LOF(F), F)
    Close #F
End Sub

---

And here's YOUR sign! :D :D

(Woohoo!)


Here's how you would shellexecute the .txt file to display it:

VB Code:

'General Section
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long
 
 
'in the form code
  Call ShellExecute(Me.hwnd, "Open", "C:\file.txt", "", "c:\", 1)

It works now!

It look really cool, it was for a small game that I made in VB. The "Beta-tester's" should be able to view the code.. Hehe, it was an "3-in-a-row"-game.. Thx for all the help from U guys! C ya!