windows-nt/Source/XPSP1/NT/shell/iexplore/vbtest/module1.bas

17 lines
307 B
QBasic
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
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