<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Public Function DeleteAllFiles(ByVal FolderSpec As String) _
As Boolean
 
 
'EXAMPLE: DeleteAllFiles "C:\Test"
 
Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
 
 
If oFs.FolderExists(FolderSpec) Then
Set oFolder = oFs.GetFolder(FolderSpec)
On Error Resume Next
For Each oFile In oF