finbom

Hej.

wow, där fick man några nya dagliga favoriter. Tack!

*håller tummarna för en W7*

MVH. Magnus Finbom

Ett enkelt VB-skript fixar tusentals mappar hur enkelt som helst.

Kolla nedan för ett exempel på ett skript som skapar 100 undermappar i mappen C:Bralla där varje mappnamn heter bralla1, bralla2 osv.

MVH. Finbom

strFolder = "C:BRALLA"	'Ange vilken mapp alla undermappar ska skapas i. Dom kommer heta denna mapps namn + löpnummer.
strAntalMappar = 100	'Ange hur många undermappar som ska skapas.

On Error Resume next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder (strFolder)
strfoldername = Right(strFolder,LEN(strfolder)-InStr(strfolder,""))

For Counter = 1 to strAntalMappar
FSO.CreateFolder (strFolder & "" & strfoldername & Counter)
Next

WScript.Echo "Klart! " & Counter & " mappar är skapade i mappen " & strFolder

Hej!

Detta har jag sett på många maskiner men det är ganska sällsynt.

Gå in i diskhanteraren och kolla, jag tror du kommer se usb-minnet där fast det saknas en enhetsbokstav.

Högerklicka på minnet där och välj att "Ändra enhetsbeteckning...." och ge den en ledig bokstav.

Kan vara något annat också men detta brukar lösa det för mig. 

MVH. Magnus Finbom