欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vista系统vbs调用com组件打开文件有关问题

更新时间: 2014-01-05 01:52:21 责任编辑: Author_N1

 

vista系统vbs调用COM组件打开文件问题
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 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:21
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2318/
本文WWW.DOC100.NET DOC100.NET版权所有。