Zuerst ziehen wir 4 Steuerelemente auf die Form:
2 einfache Buttons (Name):Command1 bzw Command2
1 Textfeld (Name):Text1
1 Common-Dialog (Name):CommonDialog1
Standartmäßig wird der Common-Dialog nicht in der Werkzeugleiste angezeig. Deshalb klicken wir mit der rechten Maustaste auf die Werkzeugleiste und wählen 'Komponenten...' aus. In dem Darauf folgendem Dialog klicken wir in der Liste auf den Eintrag 'Microsoft Common Dialog Control 6.0', sodass daneben ein Häkchen erscheint. Danach klicken wir auf 'OK' und es erscheint ein neues Symbol in der Werkzeugleiste. Das ist der Common-Dialog.
Nun müssen wir die Steuerelemente noch unseren Vorstellungen anpassen. Beim Textfeld setzen wir die Eigenschaft 'MultiLine' auf 'True'. Damit bewirken wir, dass man in das Textfeld mehrere Zeilen schreiben kann. Zusätzlich setzen wir die Eigenschaft 'Scrollbars' auf '2 - Vertikal'. So wir eine Scrolleiste hinzugefügt, damit man auch längere Texte gut lesen kann.
Bei dem Commondialog setzen wir die Eigenschaft 'Filter' auf 'Textdateien|*.txt'. Damit bewirkt man, dass sich nur *.txt Dateien öffnen lassen.
Dann fügt man folgenden Code ein (zum besseren Verständnis habe ich ihn Kommentiert):
Private Sub Command1_Click()
CommonDialog1.ShowOpen 'Den Dialog zum Öffnen Anzeigen...
If CommonDialog1.FileName <> "" Then 'Wenn eine Datei ausgewählt wurde...
Text1.Text = "" 'Der alte Text in der Textbox wird gelöscht
Open CommonDialog1.FileName For Input As #1 'Die Ausgewählte Datei wird geöffnet, und zwar mit 'For Input' also zum Lesen
Dim dateistr As String 'In dieser Variable wird die eigelesene Zeile zwischengespeichert
While Not EOF(1) 'Die While...Wend Schleife läuft solange, bis das Ende der Datei 1 'EOF(1)' NICHT 'NOT' erreicht ist
DoEvents 'Hier wird eine kleine Pause gemacht, damit das Einlesen nicht die gesammte Rechenkraft kostet
Line Input #1, dateistr 'Eine Zeile wird in der Variable zwischengespeichert...
Text1.Text = Text1.Text & dateistr 'Die Zeile wird zum Text hinzugefügt
Wend 'Hier gehts mit der Schleife von vorne los...
Close 'Die Datei wird geschlossen...
Else 'Wenn keine Datei ausgewählt wurde (siehe 'if')...
MsgBox "Fehler" '...wird ein Fehler ausgegeben
End If 'Hier endet der IF Block...
End Sub '...und die Prozedur
Private Sub Command2_Click()
CommonDialog1.ShowSave 'Der Speichern Dialog wir angezeigt...
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1 'Die Datei wird wie oben geöffnet aber 'For Output'..
Print #1, Text1 'Das Textfeld wird in die Datei geschrieben... Den Rest kennen wir
Close
End If
End Sub
Man kann mit dem Button Command1 öffnen und mit dem button Command2 speichern...