l am stuck

[vbgeobas]

l would like to read the content of a Text file which is at folder C and have it's contents appearing in a Label

App.Path & \folderA\folderB\folderC

Thanks for help

[Arnoutdv]

Have you tried the basic VB6 file io methods?

[VanGoghGaming]

Private Sub Form_Load()
    With New Scripting.FileSystemObject
        With .OpenTextFile(App.Path & "\folderA\folderB\folderC\file.txt")
            Label1 = .ReadAll
            .Close
        End With
    End With
End Sub

Requires a reference to "Microsoft Scripting Runtime".

[vbgeobas]

Requires a reference to "Microsoft Scripting Runtime".

What exactly do you mean . l know nothing about it . Never used it

[VanGoghGaming]

You select it from the Project menu and then References.

[vbgeobas]

Sorry , it doesn't work

[Zvoni]

Sub Something()
Dim f As Integer
Dim s As String
    f = FreeFile
    Open "C:\Folder A\Folder B\Folder C\test.txt" For Input As #f
    Line Input #f, s
    Close #f
    MyLabel.Caption = s
End Sub

[vbgeobas]

Thanks Zvoni , it does not work , maybe l was not very explicit .

l have a folder "Recovery" in it 2 folders "MyPics" and "MyTexts"
in "myPics" folder there are 50 photos, p1.jpg , p2.jpg , p3.jpg... etc
In "myTexts" folder there are 50 texts , t1.txt , t2.txt,t3.txt... etc

Altough l have been able to get the photos with
Foto = "p" + PhotoNum + (".jpg")
PicBase.Picture = LoadPicture(App.Path & "" & "\recovery" & "\mypics" & "" & Foto)

It goes without saying , that t1.txt is a description of photo p1.jpg

l have no luck to present the contents of t1.txt etc in a new text or label

Still trying

[AdorablePlum]

Try:

Private Sub Command1_Click()
Dim sPath As String
sPath = App.Path & "\folderA\folderB\folderC\test.txt" 'change accordingly
With CreateObject("scripting.Filesystemobject").opentextfile(sPath, ForReading)
    Label1.Caption = .readall
    .Close
End With
End Sub

[vbgeobas]

Thanks but No Luck .

[yereverluvinuncleber]

You are stuck, I am stuck, we are all stuck in something or other - that doesn't really help much.

You are particularly stuck in this case with raising post using a misleading and unhelpful subject. If you truly want good targetted help, learn to place a precis of the problem in the subject so we know what you are stuck with. More people will be likely to help.

[Zvoni]

and i doubt this very much:

Spot the "mistake"

Foto = "p" + PhotoNum + (".jpg")
PicBase.Picture = LoadPicture(App.Path & "" & "\recovery" & "\mypics" & "" & Foto)

[vbgeobas]

See my post #8 . l think l was preciise enough

[Zvoni]

See my post #8 . l think l was preciise enough

Sub Something(ByVal PhotoNum As Long)
Dim f As Integer
Dim s As String
    f = FreeFile
    Open App.Path & "\recovery\mytexts\t" & cstr(PhotoNum) & ".txt" For Input As #f
    Line Input #f, s
    Close #f
    MyLabel.Caption = s
End Sub

[vbgeobas]

l did not copy/paste the line ,sorry , but like l said it works perfectly with the photos

No go , Zvoni , thanks for tryng to help .

[AdorablePlum]

When you say it's not working, do you get an error?
Are you able to attach an example text file?

[vbgeobas]

When you say it's not working, do you get an error?
Are you able to attach an example text file?

No error .The label is just blank .

It will be all Greek to you .

t1.txt= ???????????? ??? ?????? That was supposed to be Greek

Whch actually means SUNSET AT FALIRO (Southern suburbs of AThens)

[VanGoghGaming]

Put English text in the text files if you want it displayed in a label. Greek text won't work.

[vbgeobas]

It works with Englih text. Thank you a lot , but it's not the solution .
The project is supposed to be used by Greeks

l'll keep trying

[Zvoni]

It works with Englih text. Thank you a lot , but it's not the solution .
The project is supposed to be used by Greeks

l'll keep trying

https://www.vbforums.com/showthread....o-OCX-required

and FWIW: It needed 17 Posts, until OP said his captions are NOT in ANSI....
so at the end of the Day, the Problem wasn't with File I/O, but that it's Unicode....

lesson learned: "It doesn't work" is NOT an error-description

[AdorablePlum]

Instead of a label, can you use a locked textbox?

[yereverluvinuncleber]

No point in trying to help this bloke. He can't even help himself. It is a lost cause.

[fafalone]

Use twinBASIC; then you don't need to worry about supporting Unicode in an ANSI world with 3rd party controls and API file i/o, just tag the Open statement with the encoding, e.g. Open "C:\MyFile.txt" For Input Encoding utf-8 As #1 then load into labels and textboxes with native Unicode support

[AAraya]

"i am stuck" AND "it doesn't work"

Not to pile on but to agree with what others have said to you...

These don't work as a description of the problem you're having when you're asking for help.
Don't go into QA my friend - writing up a bug ticket with that description would quickly get you in the doghouse with developers.
As a developer yourself, imagine a user of your software saying that to you. Wouldn't you want much more detail and precision?

So it sounds like the issue you're having currently is displaying Greek text in a label? VB6 controls don't support that natively. Check out the Visual Basic Common Controls Replacement project (VBCCR) - I use those controls rather than VB6's to support multiple languages in my projects.

[Zvoni]

Not to pile on but to agree with what others have said to you...

These don't work as a description of the problem you're having when you're asking for help.
Don't go into QA my friend - writing up a bug ticket with that description would quickly get you in the doghouse with developers.

Reminds me of the maintainance-reports of Qantas-Airline....
Pilot (On Report-Form): "Something lose in the Cockpit"
Engineer (answers on Form): "Something tightened in the Cockpit"