• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    Vbs COM之打开/保存文件脚本代码
    您先把如下的代码复制,然后保存为FileSave.vbs,双击打开,您看到了什么呢?
    复制代码 代码如下:

    Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
    Set fso = CreateObject("Scripting.FileSystemObject")
    objDialog.FileName = "test"
    objDialog.FileType = ".txt"
    intReturn = objDialog.OpenFileSaveDlg
    If intReturn Then
    fso.CreateTextFile(objDialog.FileName objdialog.filetype)
    Else
    Wscript.Quit
    End if

    Vbs在很多时候一直给用户以不友好的文件打开或是保存方式,总是自己在后台处理掉了一些FSO操作,而不能让用户自己进行一些设当的DIY。所以,为什么不用COM呢?COM组件在系统里是一直存在的,利用它,我们的用户体验将会提升很多。
    上面的代码是不能弹出一个保存test.txt文件的对话框呢?后缀名和文件名大家自己去修改,估计懂点vbs基础知识的人都能修改笔者的这个小脚本,并将它镶嵌到自己的脚本中去吧?
    下面再看一个例子,这次是打开文件,获得文件名。
    复制代码 代码如下:

    set objFile = CreateObject("SAFRCFileDlg.FileOpen")
    bRet = objFile.OpenFileOpenDlg
    if bRet then
    Wscript.Echo "文件打开成功!文件名为:" objFile.filename
    else
    wscript.quit
    End if

    运行这个脚本(FileOpen.vbs),将会弹出一个让用户自己选择文件的对话框窗口,非常友好地让用户自己选择文件。bRet是执行的返回值,不为0则成功,objFile的FileName可以返回选择的文件名。

    一个名称,一个调用方法,仅此而已。
    如果您觉得这个不够帅,您想用类似于MFC中完全自己DIY的CFileDialog,您该怎么办呢?也很简单,UserAccounts对象为我们提供了CommonDialog,这个更加高级的打开通用对话框。
    复制代码 代码如下:

    Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = "vbs File|*.vbs"
    objDialog.InitialDir = "E:"
    bRet=objDialog.ShowOpen
    if bRet then
    strLoadFile = objDialog.FileName
    Wscript.Echo strLoadFile
    else
    Wscript.quit
    End if

    将其保存为FileOpenAdvance.vbs吧,双击打开,它连过滤的文件类型都为您留好了接口。
    默认文件名,后缀过滤器,后缀索引,标志,初始化未知,拥有者,一个调用方法。
    上一篇:vbs 自动复制U盘的内容
    下一篇:vbscript logparser的ISA2004 Web流量报告
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    Vbs COM之打开/保存文件脚本代码 Vbs,COM,之,打开,保存,文件,