FSO对象在98中.

RussellMX 2004-08-11 04:29:20

在2000中编译,在98中不能用,在98中编译了就可以,问题出在弹出路径选择对话框上面,2000中编译以后在98中路径选择对话框无效.我是用的FSO对象.具体程序如下:

用FSO对象
先在引用中引用“Microsoft Scripting Runtime”
Dim FSO As New Scripting.FileSystemObject
Dim objFolder As Folder
Dim objDestFile As File, objEachFile As File

Set objFolder = FSO.GetFolder(文件夹XX的路径)

For Each objEachFile In objFolder.Files
If objEachFile.Name = 文件aa文件名 Then
Set objDestFile = objEachFile
Exit For
End If
Next objEachFile
各位老鸟,在98中不支持FSO 对象吗?还是哪里出问题了?期待解决.

...全文