请问怎样才能得到下面代码想要的结果

[daewoo]

Private Sub Command1_Click()
GetCacheURLList
Dim fl1 As String
List1.Clear
fl1 = Dir("C:\Windows\temp\*.*", vbNormal + vbDirectory + vbHidden)
Do While fl1 <> ""
If fl1 <> "." And fl1 <> ".." Then
List1.AddItem "C:\Windows\Temp\" + fl1
End If
fl1 = Dir
Loop

Dim fl2 As String
fl2 = Dir("C:\Windows\recent\*.*", vbNormal + vbDirectory + vbHidden)
Do While fl2 <> ""
If fl2 <> "." And fl2 <> ".." Then
List1.AddItem "C:\Windows\recent\" + fl2
End If
fl2 = Dir
Loop
End Sub

谢谢！！

[rainstormmaster]

窗体上画两个按钮，一个listbox，然后查看代码，把你的代码粘贴上

[hemeijun81]

dir 是一子目录得控件，

[tccth4091]

也许是你在getcacheurllist清空了，你最好把getcacheurllist也提供出来，

[feiqinfeiwhw]

up

[rainstormmaster]

dir 是一子目录得控件?

dir 是vb的函数

[daviddivad]

窗体上画一个按钮，一个listbox，然后查看代码，把你的代码粘贴上

[daewoo]

我说的不是这个意思 我正在编写清理垃圾的软件
我是用一个一个按钮，一个listbox
可是把GetCacheURLList放到下面就无法现实 temp和recent
GetCacheURLList是用来显示ie垃圾的我想让GetCacheURLList和temp,recent同时显示
GetCacheURLList是一个模块