Öffnen?

[Janares]

Hallo hab da mal ne Frage wollt mal nen Texteditor schreiben mit ner DirListBox ner DriveListBox und einer FileListBox und hab daneben nen Öffnen Knopf gesetzt ich bekomme es auch hin die Dateien aus genau dem Ordner in dem Sich die .exe befindet zu Öffnen nur wenn ich auserhalb was öffnen will bekomme ich die Fehlermeldung

auf den angegebene Pfad kann nicht zugegriffen werden oder er ist ungültig

hab den Quelltext knopf so mit Quelltext beschrieben.

If Ausgabe.Text <> "" Then
Edit.LoadFile Ausgabe.Text
End If

ach ja Ausgabe.text ist ein feld über der Filebox welches anzeigt was grad markiert ist ach ja und einen CommonDialog hab ich eingebaut.

Danke im vorraus

 

[Janares]

mit fällt grad auf das alles was ich mit meinem Programm selber geschrieben und gespeichert habe ohne probleme zu Öffnen ist aber andere texte nicht wenn ich sie nicht geschrieben habe

 

[silastresch]

Kannst du mir sagen, wie man dateien öffnen kann z.b. eine TXT-Date in ein Textfeld laden mit der DriveListBox auswählen

Bitte um Hilfe

 

[Janares]

Ich würde das so machen:

Dim datNr as integer
dim Temp as string

datNr = Freefile

open Datei.txt for input as datNr
   do while not eof(datNr)
       Line Input #datNr,Temp
       text1.text = text1.text & Temp
       doevents
   loop
close datNr

 

[Janares]

Soweit ich weiß kann man eine Datei nicht direkt mit einer DriveListBox auswählen, du musst dafür noch eine Dir sowie eine FileListBox hinzufügen und da den Code Reinschreiben.

Ich hab hier eben mal den Code zusammengeschrieben.

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

private sub OpenFile

Dim datNr as integer
dim Temp as string
dim File as string

File = Dir1.Path & "\" & File1.List(File1.Listindex)

datNr = Freefile

open File for input as datNr
   do while not eof(datNr)
       Line Input #datNr,Temp
       text1.text = text1.text & Temp
       doevents
   loop
close datNr


End Sub

 

[Merlin_78]

Hallo Janares,

warum verwendest du nicht dein CommonDialog? Das macht das alles doch viel einfacher.

Dim datNr As Integer
Dim temp As String
datNr = FreeFile
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As datNr 
Do While Not EOF(datNr)
Line Input #datNr , temp
Text1.Text = Text1.Text & temp
DoEvents
Loop
Close datNr

 

[Janares]

Naja weil silastresch ja gefragt hat wie man das mit ner DirListBox macht sonnst würd ich das ja auch mit nem CommonDialog gemacht.