[Visual Basic 2010]Aprire un file senza far comparire il dialog

[Gian01]

Salve, volevo chiedere se era possibile schiacciando un button aprire un file senza far comparire il dialogo per scegliere il percorso.
Ho provato diversi codici partendo dal primario(che fa comparire il dialogo), ma o mi dava errore o non succedeva niente!

Button=Button1
SaveFileDialog=SaveFileDialog1

Mi potreste aiutare a risolvere questo piccolo enigma?

[IAL32]

Cosa hai provato a scrivere fino ad ora?

Comunque, credo che quello che tu intenda sia il OpenFileDialog, se vuoi aprire un file. In questo caso, allora devi aver già definito il percorso del file in precedenza, per poi aprirlo con i metodi che intendi usare.

[Gian01]

si scusa, mi sono sbagliato con SaveFileDialog.

Il percorso del file è "C:\DOCS\test.txt".

Questo è il codice che avevo provato

Dim AllText As String = "", LineOfText As String = ""
    OpenFileDialog1.Filter = ".txt|test.txt"

    OpenFileDialog1.FileName = "C:\DOCS\test.txt" 

    Try
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        Do Until EOF(1)
            LineOfText = LineInput(1)
            AllText = AllText(LineOfText)
        Loop
        RichTextBox1.Text = AllText
    Catch
    Finally
        FileClose()
    End Try

Questo non funziona però!
Se non mi sbaglio queste modifiche aveva funzionato per il salva

[oregon]

Per scegliere il file da aprire devi usare una OpenFileDialog non una SaveFileDialog

[Vinsent]

Quoto Oregon ed aggiungo:
ma il txt devi leggerne il contenuto o aprirlo con Blocco Note???

[Gian01]

Devo leggerne il contenuto in una RichTextBox.

[oregon]

In quel codice non apri la OpenFileDialog ... devi scrivere

OpenFileDialog1.ShowDialog()

altrimenti come fai a scegliere il file?

[Gian01]

Si, ma io devo aprire un percorso già predefinito(C:\DOCS\test.txt), non devo poterlo scegliere.

[oregon]

Beh, scusa ma non sei stato chiaro ... allora non si capisce cosa c'entrino le Dialog ... nè la Save nè la Open ...

A questo punto usa la stringa "C:\DOCS\test.txt" nella FileOpen.

Anzi, non usare la FileOpen ma scrivi del codice che utilizzi le classi corrette ...

        Dim f As StreamReader
        Try
            f = New StreamReader("C:\DOCS\test.txt")
            RichTextBox1.Text = f.ReadToEnd()
        Catch
        Finally
            If Not (f Is Nothing) Then f.Close()
        End Try

[Gian01]

Grazie.
Era il mio primo post.