Søg
Avatar billede jackass- Nybegynder
07. februar 2008 - 08:24 Der er 5 kommentarer og
1 løsning

VBS runtime error: 800A0046, Permission denied

Heys,

Ovenstående fejl får jeg ved nederste linie i denne kode-stump, altså når jeg prøver at slette en fil:


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sFolderName)
Set objFiles = objFolder.Files

For Each File In objFiles
  ret = DaysOld(File.Path)
    If ret > MaxDaysOld Then
        objFSO.DeleteFile File, True


Nogen der kan hjælpe med en løsning?

/jack
Avatar billede dk_akj Nybegynder
07. februar 2008 - 08:35 #1
check at du kan få lov at lette filen fra windows explorer, check evt om filen er i brug af andre programmer.


//akj
Avatar billede jackass- Nybegynder
07. februar 2008 - 08:48 #2
Jeg kan sagtens slette filerne fra explorer, og den/de er ikke i brug af andre processer. Eneste attribut filerne har, er A (archive) så der "burde" ikke være problemer - men det er der så tilsyneladende alligevel :/
Avatar billede jokkejensen Novice
07. februar 2008 - 09:39 #3
skal det ikke køres som administrator?
Avatar billede dk_akj Nybegynder
07. februar 2008 - 09:42 #4
Det er vel ikke sådan at din DaysOld funktion låser den ??


For Each File In objFiles
  ret = DaysOld(File.Path)
    If ret > MaxDaysOld Then
msgbox "sletter nu " & file.name
        objFSO.DeleteFile File, True

Prøv at indsætte msgbox'en og se om du stadig kan slette fra explorer.

//akj
Avatar billede jackass- Nybegynder
07. februar 2008 - 10:27 #5
Det havde jeg i forvejen.. det her:

For Each File In objFiles
  ret = DaysOld(File.Path)
    If ret > MaxDaysOld Then
    MsgBox("Deleting: " + File)
        objFSO.DeleteFile File, True
        FilesDeleted = FilesDeleted + 1   
    End If
Next

..og den popper fint op
Avatar billede jackass- Nybegynder
02. marts 2010 - 10:05 #6
Lukker
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
VBS Af bsn i VBscript 5 16/07/202614:01 18/07/202610:46
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »