CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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

Synes godt om

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 :/

Synes godt om

jokkejensen Novice

07. februar 2008 - 09:39 #3

skal det ikke køres som administrator?

Synes godt om

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

Synes godt om

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

Synes godt om

jackass- Nybegynder

02. marts 2010 - 10:05 #6

Lukker

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Æ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
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS