This will work
s="E:\test" 'path
Set fso=createobject("scripting.filesystemobject")
Set fp=fso.getfolder(s)
set fsubfolder=fp.subfolders
folcount=0
For each s1 in fsubfolder
s = s & s1.name
ss=fso.getfolder(s1)
On Error Resume Next
fso.deletefolder(ss)
folcount=folcount+1
Next
Regards
Shashidhar
+91 -8125564879
[email protected]
On Thu, Jun 28, 2012 at 10:29 AM, udhaya kumar
<[email protected]>wrote:
> Hi All,
>
> How to delete all subfolders of folder using
> vbscript. i am having some set of folders in "D:\nexus\Logs\" , how to
> delete all folders using script.
>
>
> Thank You,
> Udhay
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
