windows-nt/Source/XPSP1/NT/shell/iexplore/vbtest/module1.bas
2020-09-26 16:20:57 +08:00

17 lines
307 B
QBasic

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