Supportnet / Forum / Anwendungen(Java,C++...)

hi, ich schon wieder.... hab nun ne Funktion drin, die mir einen Ordner erstellt. Am ende des Ordnernamens wird das Datum (mit Date) geschrieben. Nun wollte ich auch noch die Uhrzeit dranhängen, nur dasgeht nicht mit Time. "C:/Neuer_Ordner" & Date, False, True - geht ohne Probleme "C:/Neuer_Ordner" & Date & Time, False, True - geht nicht.. was stimmt denn da nun wieder nicht?

Moin credo,

kriegst Du ne Fehlermeldung, oder was passiert da?

Gruß
maharadsha

Time enthält Doppelpunkte. Die sind in Ordnernamen nicht erlaubt!

Fehlermeldung:
"... Syntax für dateinamen, Verzeichnisnamen oder Dateträgerbezeichnung ist Falsch"

Das mit dem Doppelpunkt könnt wahr sein.

vielleicht kann ich ja die Zeit irgendwie anders anzeigen lassen.

(Eigentlich wäre es sogar besser, wenn ich fortlaufende Nummern vergeben könnte.

Wenn Neuer_Ordner extistiert
erstelle Neuer_Ordner_2
Wenn Neuer_Ordner_2 extistiert
erstelle Neuer_Ordner_3
Wenn Neuer_Ordner_3 extistiert
erstelle Neuer_Ordner_4
Wenn Neuer_Ordner_4 extistiert
erstelle Neuer_Ordner_5
Wenn Neuer_Ordner_5 extistiert
erstelle Neuer_Ordner_6
.....

allerdings weiß ich nicht, wie ich das machen kann.)

Prinzip:

n=2
while Neuer_Ordner_n existiert
 n=n+1
wend
erstelle Neuer_Ordner_n

aber das geht dann doch auch nur bis drei, oder?

Hast Du es ausprobiert? Ich nämlich nicht! ;-) Aber wenn kein Programmierfehler drin ist, dann wird n so lange um Eins erhöht, bis kein Ordner des Namens "Neuer_Ordner_n" mehr gefunden wird.

also... ich hab das nun mal so geregelt, für alle, die vielleicht was ähnliches suchen.
(Leider hab ich das mit dem Auslesen der Ordner, nicht hinbekommen, wo immer nach der höchsten Zahl gesucht wird.. )

Private Sub Command1_Click()
Testordner = "C:/testordner"
x = 1
On Error Resume Next

If Dir(Testordner, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner
Label1.Caption = "testordner"
GoTo Ende
End If

If Dir(Testordner & x, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner & x
Label1.Caption = "testordner1"
GoTo Ende
End If

If Dir(Testordner & x + 1, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner & x + 1
Label1.Caption = "testordner2"
GoTo Ende
End If

If Dir(Testordner & x + 2, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner & x + 2
Label1.Caption = "testordner3"
GoTo Ende
End If

If Dir(Testordner & x + 3, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner & x + 3
Label1.Caption = "testordner4"
GoTo Ende
End If

If Dir(Testordner & x + 4, vbDirectory) = vbNullString Then ´nicht Existiert
MkDir Testordner & x + 4
Label1.Caption = "testordner5"
GoTo Ende
End If
Ende:
´kein Befehl
End Sub

Hi credo,

diese Version ist universeller.
ich denke, dass Du mit den aktuellen Ordner überprüfst, so genau hab ich mir das jetzt nich angesehn

dim s as string
dim n as integer

s = "Neuer_Ordner_"
n = 1
while Dir(s & n, vbDirectory) <> vbNullstring
n = n +1
wend

mkdir s & n
label1.Caption = s & n


Wenn Du noch Fragen hast, dann sag bescheid.
Für meine Syntax übernehme ich keine Garantie, da ich schon lange nich mehr in vb gearbeitet hab. :)

Gruß
K-D

ja super... genau sowas hab ich die ganze Zeit versucht zu machen. Danke.

• Qick Time auf 98se 2 Versionen (16bit und (32bit) auf Rechner läßt sich nicht deinstallieren
• "Microsoft Date and Time Picker Control"
• Date