12. august 2003 - 00:11Der er
19 kommentarer og 2 løsninger
Batchfil til oprettelse af mappe med 4 undermapper
Hej
Jeg sidder og gør mig nogle overvejelser over hvordan jeg kan lave en batch fil, som kan oprette een mappe, som er navngivet udfra bruger input og hvor der er fire undermapper med fast betegnelse eks. mappe1, mappe2, etc.
Er der nogle der kan lede mig på sporet ?
Det skal siges at batch filen skal kunne afvikles på windows 2000 & XP
Ja, men er det muligt at lave et stop i scriptet, som så giver brugeren mulighed for at navngive den øverste mappe eller skal jeg over i en anden script form. ?
En anden løsning er at lave et VBscript, som spørger om de forskellige navne i inputboxe, og derefter opretter mapperne. Det er også hurtigt lavet. Hvad ønsker du?
Kan man lave det så et f.eks kundenr og et kundenavn sammensættes til fil navnet, idet jeg eller er nødt til at bruge - el._ som mellemrumstegn mellem kundenr og kundenavn?
Her er VBscriptet: Et VBscript, der opretter en mappe ser f.eks således ud: Option Explicit dim FSO, navn set FSO=createObject("Scripting.Filesystemobject") navn=inputbox("Indlæs mappenavn") 'hvis mappen skal være på d-drevet navn="D:\" & navn navn= FSO.CreateFolder(navn)
nu er der lavet et katalog Sådan kan man fortsætte.
Ja man kan lave alt, når man gør det i VBscript. Hvis f.eks. Knr="123" og Knavn="Olsen", så kunne katalognavnet f.eks. være "d:\" & Knavn & "_" & Knr dvs: d:\Olsen_123
rettelse: jeg fik navn= for meget med. Det skal være sådan:
Option Explicit dim FSO, navn set FSO=createObject("Scripting.Filesystemobject") navn=inputbox("Indlæs mappenavn") 'hvis mappen skal være på d-drevet navn="D:\" & navn navn= FSO.CreateFolder(navn)
Hvis du gemmer ovenstående i en tekstfil med navnet lavKat.vbs, skal du blot klikke på denne fil, så kører scriptet, og du kan få det testet.
ups: jeg fik stadig ikke slettet linien 'navn='. Hvis du vil have en mappe med et underkatalog sker det således:
option explicit dim FSO, navn, kat set FSO=createObject("Scripting.Filesystemobject") navn=inputbox("Indlæs mappenavn") 'hvis mappen skal være på d-drevet navn="D:\" & navn FSO.CreateFolder(navn) Kat=Inputbox("Undermappe:") Fso.CreateFolder(navn & "\" & kat)
Nu er der oprettet en mappe med en undermappe.
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.