Timer

[Dark Ranger]

Habe ein problem mit dem Timer den ich programmiert habe und ich kann keine Fehler finden, vielleicht könnt ihr ja nochmal drübergucken!

Ich hoffe es funktioniert so mit der .zip Datei!

Das Problem liegt darin, dass wenn man den Timer mit dem niedrigen Wert zuerst startet, dass dieser dann solange ins Minus weiterläuft, bis der zweite auch zuende ist, und das ist blöd, woran kann das liegen?

 

[wincnc]

Hallo, ich hab`s mal ein wenig überarbeitet.

 

[Dark Ranger]

Woran lag es jetzt?

 

[Dark Ranger]

Also!
Ich will nicht schon wieder ein neues Thema eröffnen und deswegen poste ich es hier:

Ich will ein paar Daten speichern und habe es mir so vorgestellt, dass der User einen Namen eingibt und diese Name soll dann als Ordner angelegt werden!

Mein Versuch

Dateiname = txtDatei.Text
DateiNr = FreeFile
Open App.Path & "\" & Dateiname & "\" & "Fleet.txt" For Output As DateiNr

Kann mir jemand helfen! ?

 

[wincnc]

Hallo, Du musst das Verzeichnis vorher erstellen.

Dim Dateiname As String
Dim DateiNr As Integer

Dateiname = txtDatei.Text

MkDir (App.Path & "\" & Dateiname)

DateiNr = FreeFile

Open App.Path & "\" & Dateiname & "\" & "Fleet.txt" For Output As #DateiNr
' .....
Close #DateiNr

 

[Dark Ranger]

Wie lautet der Befehl, wenn ich ein Ordner suchen will?

Weil ich will noch einbauen, dass er erst überprüft, ob der Ordner vorhanden ist, und wenn nicht, dann erstellt er ihn! ^^

 

[wincnc]

Das geht mit der Dir Funktion:

If Dir(App.Path & "\" & Dateiname, vbDirectory) = "" Then
  MkDir App.Path & "\" & Dateiname
End If

 

[Dark Ranger]

Habe es nun schon gelöst, aber trotztdem danke! ^^

http://www.schmittis-page.de/vb/t74.htm