您当前的位置: set objFile = CreateObject("SAFRCFileDlg.FileOpen")
bRet = objFile.OpenFileOpenDlg
if bRet then
Wscript.Echo "文件打开成功！文件名为：" & objFile.filename
else
wscript.quit
End if
xp下可以使用但是vista系统下需要怎么写才能实现呢！
错误提示
行: 1
字符: 1
错误: ActiveX 部件不能创建对象: 'SAFRCFileDlg.FileOpen'
代码: 800A01AD
源: Microsoft VBScript 运行时错误
------解决方案--------------------
Dim oCDlg
Dim sTmp
Set oCDlg = CreateObject( "MSComDlg.CommonDialog" )
If oCDlg Is Nothing Then
MsgBox "CreateObject( 'MSComDlg.CommonDialog' ) failed."
Exit Sub
End If
oCDlg.MaxFileSize = 10000
' Setting other oCDlg.Properties
' oCDlg.Filter = ...
' ...
oCDlg.ShowOpen
document.all.sleTOSEND.value = oCDlg.Filename ' FSpec
------解决方案--------------------
没办法啊，在win7(没用过vista)里面,SAFRCFileDlg.FileSave和SAFRCFileDlg.FileOpen以及UserAccounts.CommonDialog都不能被正确地创建(不知道是否因为权限的原因，因为在win7中用script不如用c#,所以没有深究),所以，如果要通用XP和win7,可以试试IE里面的input:
- VBScript code
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "About:Blank"
oIE.Document.Write "<HTML><BODY><INPUT TYPE='file' ID='x'/></BODY></HTML>"
Set oElement = oIE.Document.getElementById("x")
oElement.Click
WScript.Echo oElement.Value
oIE.Quit