09. marts 2007 - 11:04Der er
11 kommentarer og 1 løsning
Opret mappe.
Hvordan opretter man mappe med vbscript ? hvordan kopirer man dem andre steder hen ? jeg har dette kode indtil vider
Dim Input
'option explicit 'dim Initialer
lengde = 0 dim msgtekst msgtekst = "Indtast initaler" While lengde < 1 Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'her kommer input boksen som måler på lengden af initialer lengde = Len(Initialer)
wend
while lengde <= 1 or lengde > 4 'tjekker om lengden er mindre end 1 og større end 5. Initialer = InputBox("Du intasted", "fejl" , Initialer) ' hvis den er det bliver vi herinde. lengde = Len(Initialer)
wend
if lengde > 1 And lengde < 5 then 'hvis lenden er mellem 1 og 4 så går vi herned. MsgBox ("Du indtasted: " & Initialer) end if
----------------------------------------------------------------- den tomme mappe skal oprettes med initialer
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
lengde = 0 Set fso = CreateObject("Scripting.FileSystemObject") dim msgtekst msgtekst = "Indtast initaler" While lengde < 1 Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'her kommer input boksen som måler på lengden af initialer lengde = Len(Initialer)
Wend
while lengde <= 1 or lengde > 4 'tjekker om lengden er mindre end 1 og større end 5. Initialer = InputBox("Du intasted", "fejl" , Initialer) ' hvis den er det bliver vi herinde. lengde = Len(Initialer)
Wend
if lengde > 1 And lengde < 5 then 'hvis lenden er mellem 1 og 4 så går vi herned. MsgBox ("Du indtasted: " & Initialer) fso.CreateFolder ("c:\" & initialer) end If
lengde = 0 dim msgtekst msgtekst = "Indtast initaler" While lengde < 1 Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'her kommer input boksen som måler på lengden af initialer lengde = Len(Initialer)
wend
while lengde <= 1 or lengde > 4 'tjekker om lengden er mindre end 1 og større end 5. Initialer = InputBox("Du intasted", "fejl" , Initialer) ' hvis den er det bliver vi herinde. lengde = Len(Initialer)
wend
if lengde > 1 And lengde < 5 then 'hvis lenden er mellem 1 og 4 så går vi herned. MsgBox ("Du indtasted: " & Initialer) Set objFSO = CreateObject("Scripting.FileSystemObject") If not objFSO.FolderExists("C:\" & Initialer) Then Set objFolder = objFSO.CreateFolder("C:\" & Initialer) Else wscript.echo "mappen er der" End If end if
tjah jeg lavede vel egentlig samme kode som killerclown gjorde bare lidt langsommere.. :D hehe men jeg tjekker på om biblioteket er der i forvejen... en anden gang så vil jeg råde dig til at google sådan noget først.. hehe.. der findes tonsvis af meteriale derude... scripting.filesystemobject er det object man skal initialisere for at kunne benytte sig af objfso.createfolder.. :D
tjah jeg er faktisk ligeglad hvis du føler for at give mig så gør du bare det.. men får jeg ikke noget så bliver jeg ikke sur.. :D hehe /Leth
Synes godt om
Ny brugerNybegynder
Din løsning...
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.