[VB] Folder maken met datum als naam

[Verwijderd]

Kan iemand me vertellen waarom dit niet werkt?

code:

Private Sub Create_dir()
Dim fso As New FileSystemObject

fso.CreateFolder ("c:\" & Now)

End Sub

Ik wil een folder maken die als naam de huidige datum & tijd heeft. De foutmelding die ik krijg is "Error 76, path not found". Ongetwijfeld iets stompzinnigs, maar wat doe ik fout?

[Ronald_stage]

mischien moet je dit er nog bij zetten:

code:

Set fso = CreateObject("Scripting.FileSystemObject")

heb je je code ge coy/paste of ben je vergeten click er bij te zetten?

[Verwijderd]

Nee, FSO werkt op zich wel, alleen de folder aanmaken lukt niet... maar ik kom er net achter dat dat komt omdat er in de tijd een dubbele punt zit. En dat kan niet in een foldernaam.

Dus moet ik Now in een string vangen en dan de dubbele punt omzetten in iets anders... dat eerste lukt wel, maar dat replacen, kan iemand me vertellen hoe dat werkt?

[Verwijderd]

Format?

[Verwijderd]

Volgens mij kan dat niet, weet niet precies hoe die 'Now' er uit ziet, maar in mijn beleving ziet een datum tijd er als volgt uit:
dd/mm/jjjj hh:mm:ss:hh

Als dat het geval is dan gaat het fout omdat windows de volgende karakters niet in dir of bestandsnamen kan verwerken (probeer maar eens in verkenner):
\ / : * ? " < > |

En als het teken \ er alleen een paar in voorkomt (dir scheiding) zoekt hij waarschijnlijk eerst naar deze onderliggende dirs.

Ik hoop voor je dat dit het is.

/EDIT
Sorry je was me net voor
/EDIT

[Verwijderd]

i=0
do while i < len(now)
i=i+1
if mid(now,i,1)=":" then now=left(now,i-1) & "iets anders" & right(now,i+1)
loop

zoiets dacht ik

[Crazy D]

Op woensdag 06 februari 2002 17:17 schreef IJskoud het volgende:
Format?

Format ja, en (logischerwijs ) dus even de tekens die niet mogen in een directory naam niet gebruiken...

[johnwoo]

code:

MkDir "C:\path\" & Date$

[Verwijderd]

Zo, hartstikke bedankt, dat format werkt idd als een tiet! Kheb er nu dit van gemaakt:

code:

fso.CreateFolder ("c:\" & Format(Now, "DDMMYY_hhmmss"))

En daar komt keurig C:\060202_171850 uit rollen

Thnx!

[xtra]

Op woensdag 06 februari 2002 17:29 schreef Fintho het volgende:
i=0
do while i < len(now)
i=i+1
if mid(now,i,1)=":" then now=left(now,i-1) & "iets anders" & right(now,i+1)
loop

zoiets dacht ik

Of iets sneller

x = Replace(Now, ":", "")

En iets beter want in je loop loop je het risico dat now een andere waarde krijgt tijdens het vervangen.

Anyway, het probleem was toch al opgelost