24. februar 2004 - 13:51Der er
9 kommentarer og 1 løsning
Slet filer når windows 2000 lukkes ned
Jeg er interesseret i at se et eksempel på hvordan man ved hjælp af VBscript kan slette indholdet af en given mappe enten når windows starter eller lukkes.
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Jeg har ikke så meget kendskab til hvordan man bruger VBscript, men burde man ikke kunne gøre således. Jeg ved godt at det ikke er smart at ligge det i en .html fil :-)
<html> <head> </head> <body>
<script type="text/vbscript"> Dim File, Folder, FileCollection Dim fso As New FileSystemObject
Set Folder = fso.GetFolder("C:\temp1") Set FileCollection = Folder.Files
For Each File In FileCollection
If DateDiff("d", FileDateTime(File), Now) >= 0 Then fso.DeleteFile (File) End If
Jeg kan se at man kan oprette og slette en fil således, men hvordan sletter jeg alle filer i biblioteket
<html> <head> </head> <body>
<script type="text/vbscript">
dim filesys, demofile set filesys = CreateObject ("Scripting.FileSystemObject") set demofile = filesys.CreateTextFile ("c:\temp1\somefile.txt", true) set demofile = filesys.GetFile("c:\temp1\somefile.txt") demofile.Delete
Hvad er der galt med det her. Det jeg gerne vil er at slette alt i en folder. Tanken er at jeg vil slette hele folderen først også oprette den igen. Det ville selvfølgelig være federe hvis jeg bare kunne nøjes med at slette indholdet af folderen.
<script type="text/vbscript">
dim filesys, demofolder,
set filesys = CreateObject ("Scripting.FileSystemObject") set demofolder = filesys.DeleteFolder("c:\temp2") set demofolder = filesys.CreateFolder("c:\temp2")
Den eneste måde jeg kan gøre det på er således, det er bare ikke optimalt, eller er det. Jeg mangler stadig at finde ud af hvordan jeg afvikler scriptet ved start af windows. Det er vel smartest at gøre det der, da man så er sikker på at det bliver kørt. Jeg kunne jo ligge .html filen i startup og lige en onload på bodytagget, men der må da være en smartere måde. HJÆLP
<script type="text/vbscript">
dim filesys, demofolder
set filesys = CreateObject ("Scripting.FileSystemObject")
'delete folder set demofolder = filesys.GetFolder("c:\temp2\") demofolder.Delete
'create folder set demofolder = filesys.CreateFolder("c:\temp2")
Jeg har vist fundet ud af det :-) Det var bare et spørgsmål om at filen skulle hedder .vbs
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.
Ny bruger
Nybegynder
Opret
Preview
