<div>
I have taken ownership of the Directory and files as well to no avail.
</div>


I have taken ownership of the Directory and files as well to no avail.

<div>
Is it possible the file is still in use when attempting to delete ?
</div>


Is it possible the file is still in use when attempting to delete ?

<div>
There are multiple files in the directory, is there something to add to the script to have it skip over a file if its in use and move on to the next??
</div>


There are multiple files in the directory, is there something to add to the script to have it skip over a file if its in use and move on to the next??

<div>
<div class="content wysiwyg-content">
I have a script to delete files older than 15 minutes and it works great except on a couple Servers. I run it as a Domain Admin and get this error<br />
&nbsp;Script: C;\FileCopy\test.vbs<br />
Line: &nbsp;8<br />
Char: &nbsp;9<br />
Error: &nbsp;Permission denied<br />
Code: 800a0046<br />
Source: &nbsp;Microsoft VBScript runtime error<br />
<br />
here is the script<br />
<br />
Dim fso, f, f1, fc, result <br />
&nbsp; &nbsp;Set fso = CreateObject(&quot;Scripting.Fi<wbr />leSystemOb<wbr />ject&quot;) <br />
&nbsp; &nbsp;Set f = fso.GetFolder(&quot;D:\GCTI\log<wbr />s&quot;) <br />
&nbsp; &nbsp;Set fc = f.Files <br />
&nbsp; &nbsp;For Each f1 in fc <br />
&nbsp; &nbsp; &nbsp;result = DateDiff(&quot;n&quot;,f1.DateLastMo<wbr />dified,Now<wbr />)<br />
&nbsp; &nbsp; If result &gt;&nbsp;15 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; f1.Delete<br />
&nbsp; &nbsp; End If <br />
&nbsp; &nbsp;Next <br />
&nbsp; &nbsp;Set fso = Nothing <br />
&nbsp; &nbsp;Set f = Nothing <br />
&nbsp; &nbsp;Set fc = Nothing <br />
<br />
PLEASE HELP
</div>
</div>


I have a script to delete files older than 15 minutes and it works great except on a couple Servers. I run it as a Domain Admin and get this error
 Script: C;\FileCopy\test.vbs
Line:  8
Char:  9
Error:  Permission denied
Code: 800a0046
Source:  Microsoft VBScript runtime error

here is the script

Dim fso, f, f1, fc, result 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.GetFolder("D:\GCTI\logs") 
   Set fc = f.Files 
   For Each f1 in fc 
     result = DateDiff("n",f1.DateLastModified,Now)
    If result > 15 Then
        f1.Delete
    End If 
   Next 
   Set fso = Nothing 
   Set f = Nothing 
   Set fc = Nothing 

PLEASE HELP

Script error 800a0046 Permission Denied

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Microsoft Disk Operating System (MS-DOS) was an operating system for x86-based personal computers, and traces of it are still found in the Windows operating system. DOS is still used in some embedded systems and for certain legacy 16-bit networks.