Das Beispiel in diesem Artikel beschreibt, wie man TXT-Dateien mit VB öffnet und speichert. Teilen Sie es als Referenz mit allen. Die Einzelheiten lauten wie folgt:
Private Sub cmdsave_Click()Dim filelocation As String' lädt die Box zum Speichern unter commondialog1.ShowSave filelocation = commondialog1.FileName' append speichert über die Datei, wenn dies hilft. Open filelocation For Append As #1 Print #1, text1.text Close #1End SubPrivate Sub cmdopen_Click ()Dim filelocation As String' open box anzeigen commondialog1.ShowOpen filelocation = commondialog1.FileName' input Dateien in text1.text Dateispeicherort öffnen Für Eingabe als #1Do Until EOF(1) Eingabe #1, Daten text1.text = text1.text + Daten + vbNewLine EOF (1) Schleife schließen #1End Sub
Ich hoffe, dass dieser Artikel für die VB-Programmierung aller hilfreich sein wird.