求教：使用FileSysTemObject造成内存持续增长的问题

[taozhiyi]

Private Sub Timer4_Timer()
Dim objFileSys As New FileSystemObject, path As String
path = "sendsms"
If objFileSys.FolderExists(path) = False Then
End If
Set objFileSys = Nothing
End Sub
我做了个试验，如上例，程序运行时内存在持续增长，但如果将 If objFileSys.FolderExists(path) = False Then
End If语句去掉，内存则无变化（时间控件间隔为1秒）。
请高手指教，谢谢

[rainstormmaster]

我测试了一下,没发现你说的问题,你的vb打了sp6补丁了吗?

[Tiger_Zhao]

有必要控制一下事件的重入问题
Private Sub Timer4_Timer()
static s_InEvent as boolean
if s_InEvent then exit sub
s_inevent = true

Dim objFileSys As New FileSystemObject, path As String
path = "sendsms"
If objFileSys.FolderExists(path) = False Then
End If
Set objFileSys = Nothing

s_inEvent = false
End Sub

[taozhiyi]

问题解决了，就是将文件对象转移到时间控件外面就可以了。