系统编程

开发平台：

Visual C++

module1.bas：源码内容

							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

						