Set fso = CreateObject("Scripting.FileSystemObject") For i = 1 To 1000 name = "08" & Left("0000", 4 - Len(CStr(i))) & CStr(i) fso.CreateFolder(name) Next Set fso = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.