Sidor

onsdag 2 december 2009

Stormigt på jobbet men jag fixar biffen.

Det märks att det börjar närma sig jul. Alla skickar in dom sista beställningarna som ska hinna bli klara innan jul och det görs i en sån hast så att både filer och installationsinstruktioner saknas.
Kan bli lite knöligt när man får 10000 filer i knät och inte en aning om vad man ska göra med dom. Självklart så är dom som har beställt borta och allt skulle vara klart igår.
Men jag lyckades få ordning på allt idag ändå så det kändes riktigt skönt.

Ibland så tar en del program inte bort alla filer och foldrar när man har avinstallerat det och då får man sitta och scripta bort det. Så här kan ett litet script se ut som tar bort allt under C:\temp\test och alla subfoldrar och filer i dom. Går såklart att ändra till vilken sökväg som helst.

Dim FSO
Dim MyPath

Set FSO = CreateObject("scripting.filesystemobject")

MyPath = "C:\temp\Test\"

If Right(MyPath, 1) = "\" Then
MyPath = Left(MyPath, Len(MyPath) - 1)
End If

If FSO.FolderExists(MyPath) = False Then
MsgBox MyPath & " doesn't exist"
End If

On Error Resume Next
'Delete files
FSO.deletefile MyPath & "\*.*", True
'Delete subfolders
FSO.deletefolder MyPath & "\*.*", True
FSO.deletefolder MyPath
On Error GoTo 0

Det finns många sätt att göra det på och det finns säkert mycket snyggare och effektivare också men den här gör sitt jobb om man kör den lokalt på datorn. MsgBox:en behöver man så klart inte då den bara skickar upp ett medelande om den inte hittar sökvägen men kan vara bra att ha i testsyfte.

Inga kommentarer:

Skicka en kommentar