17 lines
307 B
QBasic
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
|