Delete contents of a folder remotely

ASP Free Forums Sponsor:

August 16th, 2007, 10:54 AM

ltima_driver

Registered User

Join Date: Aug 2007

Posts: 2

Time spent in forums: 34 m 47 sec
Reputation Power: 0

VBScript - Delete contents of a folder remotely

Hi There,

Well I am making a lab cleanup HTA and am having problems when it comes to a folder that is shared. What I want to is delete all the contents in C:\logs on a remote server.

This is the basic concept of what the script does:

1. Maps to the \\Servername\C$ to drive P:
2. Deletes the folder P:\logs
3. Recreate a logs folder

The problem is that if the logs folder is shared my script fails. Is there anyway I can delete all the contents of C:\logs without deleting the folder? or any other way that I can delete the shared folder, and when I recreate it share it again..?

Thanks in advance

Dhruv

August 17th, 2007, 01:44 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Try something like this...

vb Code:

Original - vb Code

Set objFso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
 
WshNetwork.MapNetworkDrive "P:", "\\Servername\C$"
 
Set objFolder = objFso.GetFolder("P:\logs")
killFiles(objFolder) 'Delete files
doSubfolders(objFolder) 'Delete files in subfolders
Set objFolder = Nothing
 
Sub killFiles (ByRef objFolder) 'Delete all files in folder
    Set colFiles = objFolder.Files
    
    On Error Resume Next
    For Each objFile In colFiles
        objFile.Delete
    Next
    On Error Goto 0
End Sub
 
Sub getSubFolders(ByRef objParentFolder) 'If subfolders exist, process files in each folder
    Set colSubfolders = objParentFolder.SubFolders
    For Each objSubfolder In colSubfolders
        killFiles(objSubfolder)
        If objSubfolder.SubFolders.Count > 0 Then
            getSubFolders(objSubFolder)
        End If
        objSubfolder.Delete
    Next
End Sub

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

Last edited by Nilpo : August 24th, 2007 at 07:54 PM.

August 17th, 2007, 09:46 AM