Dateien

[webmaster76]

Hallo an alle,

hier nochmal die Frage zum Dateisystem. Ich habe in Visual Basic 6.0 eine Standard-Exe erstellt. Auf der Oberfläche gibt es einen CommandButton. Wenn der CommandButton gedrückt wird (über Private Sub CommandButton_Click()) soll das Prog:

1. eine Datei erstellen (bzw. prüfen ob vorhanden)
2. den String "test" am Ende der Datei einfügen

Wie geht das?

Habe versucht das Ganze über
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
zu definieren, allerdings schlägt das fehl (gibt Fehler bei allen Anweisungen Fs.xxx aus).

Oder funktioniert das anders oder fehlt vielleicht nur ein import?

Bitte um Hilfe, hänge total fest :-(

 

[Orakel]

Hi,

warum benutzt Du das Script Objekt? VB6 bietet doch genügend FUnktionen, um auf Dateien zugreifen zu können.
Open öffnet eine Datei
Print/Write schreibt in eine Datei
Input liest aus einer Datei

Gruß
Das Orakel

 

[webmaster76]

Hallo,

könnte ich dazu bitte einen kleinen Codeschnipsel haben, wäre wirklich sehr hilfreich!

Vielen Dank für die Hilfe!

 

[Orakel]

Hi,

kann Dir jetzt auf die Schnelle nur so aus dem Kopf das Grundprinzip darlegen:

    If Dir$( "<Dateiname>", vbNormal ) <> "" Then
        Open "<Dateiname>" For Append As #1

        Print #1, "Hallo es ist " & Date & "  " & Time
        Close #1
    End If

Nutze doch einfach die Suchfunktion des Forums, um nach z. B. Append zu suchen. Zum Thema öffnen, lesen und schreiben von Daten aus und in Dateien gibt's garantiert jede Menge Threads.

Gruß
Das Orakel

 

[webmaster76]

Vielen Dank, funktioniert jetzt!
Hatte einen kleinen dummen Fehler eingebaut :-(