Where is the Problem ????????????

[zmerlinz]

here is some code and for some reason that is beyond my control it doesn't work

Private Sub Command1_Click()
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set File = fs.GetFile("C:\reginfo.txt")
If Err.Number = 53 Then 'File not found
MsgBox "File Not Found"
End If
If Err.Number = 0 Then 'File found
frmsplash.Visible = True
Open "reginfo.txt" For Input As #1
frmsplash.Label1 = Input(LOF(1), 1)
Close #1
End If
End Sub

any ideas ?

it doesn't display the text from the file into label1

PLEASE HELP


Merlin ?

You just have reginfo.txt. Put some directory in there as well.

Try this:

Private Sub Command1_Click() 
On Error Resume Next 
If Dir("C:\regedit.txt") <> "" Then
frmsplash.Visible = True 
Open "C:\reginfo.txt" For Input As #1 
frmsplash.Label1.caption = Input(LOF(1), 1) 
Close #1 
Else
Msgbox "File does not exist!", 16
End If 
End Sub

[zmerlinz]

Hi,

i now get the message "File Does Not Exist"

any other suggestions ?


Merlin ?

[HeSaidJoe]

I cut and pasted your code and it worked fine for me.

[zmerlinz]

<annoyed> Strange

Merlin ?

Merlin, where is your file, reginfo.txt located?

[HeSaidJoe]

methinks your file is empty!
if anything is in it it shows on my system
and if the file is not there it messages.

Wayne

[zmerlinz]

my file is situated in the c:\ (root)

and in side the file there is the following information

Dean Chapman

Help!!

Merlin ?

[HeSaidJoe]

other possibility...
is the backcolor of your label
the same color as the forcolor of your label

Forgive me but it is a possibility....

Does your frmSplash appear?

Try this instead:

Open "C:\regedit.txt" For Binary As #1
start$ = 1
buffer1$ = String$(10000, 0)
Get #1, start$, buffer1$
Label1.caption = Label1.caption & buffer1$
Close #1

My other suggestion, if that doesn't work, would be to load it in a text file, and then put in the Text1_Change event:

Label1.caption = Text1.text

[zmerlinz]

hi, hesaidjoe

i have changed the labels back colour and this makes no difference and frmsplash does appear

mathew

no of your ways works, and i am ot sure what u are trying to do on the second one

any other suggestions

Merlin ?

[Edited by zmerlinz on 08-22-2000 at 03:29 PM]

[HeSaidJoe]

your code works so if you are not getting frmSplash you should be getting the message "File Not Found"

Is that happening.

At Worst...make a new project with 2 forms
the first form1 the second frmSplash
Cut and paste your original code from this post.
Open notepad and enter Help Me Out Here
Save it as C:\Reginfo
Run your program...
that is what I done and it works fine.

Wayne

[zmerlinz]

hi, Wayne

it still didn't work that way either

WOULD ANYONE LIKE ME TO EMAIL THEM THE PROGRAM TO SEE WHAT THEY MAKE OF IT

IT MAY HELP

Cheers

Merlin ?

[parksie]

I'll look. [email protected]

[HeSaidJoe]

I deleted it but I'll rebuild it and zip it for you..
Give me 15 or 20 cause I'm peeking out here at work for a moment..

Wayne

[parksie]

That's okay, I'll be around for a couple of hours yet.

[zmerlinz]

hi, parksie

i've just emailed it to you

cheers

Merlin ?

[parksie]

Thanks, got it.

[HeSaidJoe]

zmerlinz:
check your mail a working copy is there....
it's all your code

Wayne

[parksie]

Have a look at this:

Dim x As Object
Dim s As String
Dim sz As String
Set x = CreateObject("Scripting.FileSystemObject")
If x.FileExists("c:\autoexec.bat") Then
    Open "c:\autoexec.bat" For Input As #1
        While Not EOF(1)
            Line Input #1, s
            sz = sz + vbCrLf + s
        Wend
    Close #1
    Debug.Print sz
Else
    MsgBox "No file!"
End If

[zmerlinz]

hi, wayne

it works to a certain extent, but if the file contains too much info then not all of this information is displayed

MErlin ?

[HeSaidJoe]

increase the size of the label
:>

[zmerlinz]

hi, parksie,

i like the code but why does it go to the immediate window

can it go else where ?

Merlin ?

[parksie]

I set it as:

Debug.Print sz

Just use Label1.Caption = sz or otherwise.

[HeSaidJoe]

debug.print tells it to go to debug window

you can send it anywhere you want. It's basicaly the same stuff just a different color. If you change debug.print
to
frmSplash.Lable1.Caption = sz
you will get it in the label but you will still have to increase the label size to accomodate the file size.

Bye now
Wayne

[zmerlinz]

as the title says

the progrma suddenly started to work, when i changed the text in the file, it still displayed the original text (how i don't know), then i tryied again and now it has gone back to not working

AAAAAAAGGGGGGGGHHHHHHHHHHHHH!!!!!


Merlin ?

[zmerlinz]

thankyou parksie thanks to your suggestion and a little messing about i have finally got it working

i bow down to you, and praise you as a Vb God

Thanks Millions

and thanks to wayne as well

cheers

Merlin ?

[parksie]

and praise you as a Vb God

...Guru will do nicely...

Glad to have helped!