✔ 2 Dateien öffnen

[aim2]

Hallo!
Ich habe einen Kurzen Sub zum Öffnen einer Datei. Sieht so aus:

Private Sub open_Click(Index As Integer)
  'Explorer-Dialog zum Öffnen von Dateien
  With CommonDialog1
    'Titelzeile
    .DialogTitle = "Geräteliste öffnen"
    'Suchmaske
    .Filter = "Geräteliste (*.stg)|*.stg|alle Dateien (*.*)|*.*"
    'Filterindex
    .FilterIndex = 1
    'Flags setzen: Explorer-Dialog mit langen Dateinamen
    .flags = cdlOFNCreatePrompt And cdlOFNPathMustExist And cdlOFNLongFileNames And cdlOFNExplorer
    'Datei öffnen
    .ShowOpen
    'Ergebnis der Dateianwahl ausgeben
    'MsgBox "Sie haben gewählt: " & .FileName, vbInformation, "Dateiwahl"
    RichTextBox1.LoadFile (.FileName)
    If Not Flag Then RichTextBox1.SetFocus
    RichTextBox2.LoadFile (.FileName)
    If Not Flag Then RichTextBox2.SetFocus
  End With
 End Sub

Die Datei enthält einen Text und die endung .stg. Beim öffnen wird diese Datei in 2 Textfeldern angezeigt.
(RitchTextBox1 & 2)

Mich würde jetzt interessieren, was ich machen muss, damit in RitchTextBox2 eine Datei aus dem gleichen Verzeichnis, und mit gleichem Dateinamen, nur der endung .st2 Geladen wird,
also z.B.:
in RitchTextBox1 wird die Datei test.stg geladen und angezeigt.
dann soll in RitTextBox2 die Datei test.st2 geladen und angezeigt werden.

Wenn die Datei st2 nicht vorhanden ist, soll sie erstellt werden.

Kann mir jemand helfen?

gruß
aim

 

[Orakel]

Hi,

also das einfachste ist doch die Fileextension des Dateinamens einfach auszutauschen. In etwa so:

szSecondFileName = Left$(.Filename, Len(.Filename) - 3) & "st2"

So jetzt kannst Du prüfen, ob diese Datei vorhanden ist. Like this

If Dir$(szSecondFileName, vbNormal) = "" Then
    Open szSecondFileName For Output as #1
    Close #1
End If

Und zum Schluss diese Datei in RichText2 öffen.

Hope it helps
Das Orakel