|
Attribute VB_Name = "Module1"
|
|
Public IExplorer As InternetExplorer
|
|
|
|
Public Sub EmptyFolderList()
|
|
For i = 1 To FolderList.Count
|
|
FolderList.Remove 1
|
|
Next i
|
|
|
|
End Sub
|
|
|
|
Public Sub EmptyFolderItemList()
|
|
For i = 1 To FolderItemList.Count
|
|
FolderItemList.Remove 1
|
|
Next i
|
|
|
|
End Sub
|