Read folders and Eliminate

Plfso = CreateObject ("Scripting.FileSystemObject")
‘

‘
'/Generation Management
Plroot = Plfso.getfolder (PLTARBKFLD)

plcurcnt = 0
For each plsubfolder in Plroot.subfolders '/フォルダ number of Won
If CStr (plsubfolder.path) <> Plbackupfolder Then
plcurcnt = plcurcnt + 1 '/カウント
End If
Next Plsubfolder
‘
If plcurcnt > CInt (pltarbkcnt)-1 Then '/de-が necessary
For each plsubfolder in Plroot.subfolders '/フォルダをエントリー Shun occupies
If CStr (plsubfolder.path) <> Plbackupfolder Then
Call Plfso.deletefolder (Plsubfolder, True) '/フォルダ erase
End If
plcurcnt = plCurCnt-1
If plcurcnt <= CInt (pltarbkcnt)-1 Then
Exit for
End If
Next Plsubfolder
End If
‘
'/バックアップフォルダ made
If plfso.folderexists (plbackupfolder) = False Then
Call Plfso.createfolder (Plbackupfolder)
End If

Read folders and Eliminate