auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Textdatei im sequentiellen Modus zum Append-Zugriff öffnen, Datei löschen

Textdatei im sequentiellen Modus zum Append-Zugriff öffnen, Datei löschen:
Shell, Append, Kill
Const Dateiname = "C:\Messwerte.dat" Da die Datei mit Notepad geöffnet wird, muss ein konkreter
Pfad benannt werden.
Private Sub cmdProtokoll_Click()
Dim Rückgabewert As Long Datei mit Notepad öffnen (ohne Pfad geht’s nicht).
Rückgabewert = Shell("Notepad " & Dateiname, vbNormalFocus)
End Sub
Private Sub cmdProtokollLöschen_Click()
Dim Antwort As Long
Antwort = MsgBox(Prompt:="Protokolldatei löschen?", _
Buttons:=vbQuestion + vbYesNo, Title:="Ja oder nein?")
If Antwort = vbYes Then Kill Dateiname Datei löschen.
End Sub
Private Sub cmdStart_Click() Messdaten-Aufzeichnung starten.
Static Modus As Boolean
Modus = Not Modus
If Modus Then
If IsNumeric(txtIntervall.Text) = False Then
tmrZeit.Interval = 1000
Else
tmrZeit.Interval = txtIntervall.Text
End If
tmrZeit.Enabled = True
cmdStart.Caption = "&Anhalten"
Else
tmrZeit.Enabled = False
cmdStart.Caption = "&Weiter"
End If
End Sub
Private Sub Form_Load() Programmstart.
Dim DateiNr As Integer
DateiNr = FreeFile
tmrZeit.Enabled = False
txtIntervall.Text = "1000"
Open Dateiname For Append As DateiNr TextDatei wird für sequentiellen Append-Zugriff geöffnet.
Write #DateiNr, Now Bei jedem Öffnen wird Datum und Uhrzeit in die Datei
Close geschrieben.
End Sub
Private Sub lstMesswerte_Click()
lstMesswerte.Clear
End Sub
Private Sub tmrZeit_Timer() Ablauf des Timers.
Dim Zahl1 As Double, Zahl2 As Double
Dim DateiNr As Integer
DateiNr = FreeFile
Zahl1 = Rnd * 1000
Zahl2 = Rnd * 1000
lstMesswerte.AddItem "Wert1:=" & Format(Zahl1, ".00") & ":" & "Wert2:=" & Format(Zahl2, ".00")
Open Dateiname For Append As DateiNr TextDatei wird für sequentiellen Append-Zugriff geöffnet.
Write #DateiNr, CStr(Zahl1) & ":";
Write #DateiNr, CStr(Zahl2)
Close
End Sub

Mehr Tipps: Verzeichnisse, Unterverzeichnisse sowie alle Dateien löschen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt