精华内容
下载资源
问答
  • 可直接运行的VB6.0示例程序,实现功能:采用相对路径打开文件
  • [ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation [ .NET ] dotnet.microsoft.com [ 平台 ] www.oschina.net [ 平台 ] gitee.com   ...

         IDE : Visual Basic 6.0精简版
          OS : Windows 10 x64
    typesetting : Markdown
           blog : my.oschina.net/zhichengjiu
          gitee : gitee.com/zhichengjiu

    GUI

    code

    Private Sub Command1_Click()
    
    Shell "explorer D:\dir-demo-2019-07-14\demo.txt", 1
    
    End Sub
    
    

    result

    reference

    resource

    • [ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation
    • [ .NET ] dotnet.microsoft.com
    • [ 平台 ] www.oschina.net
    • [ 平台 ] gitee.com


    感谢帮助 志成就 的人们。
    VB6.0已经过时,想深入学习它的话,还望三思而后行。
    喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。
    该博文仅可用于测试与参考。

    转载于:https://my.oschina.net/zhichengjiu/blog/3073969

    展开全文
  • vb中一个按钮打开指定路径exe文件代码.txt
  • VB-判断并获取打开文件路径,本例以打开一个图片文件为例,显示图片的路径信息,要实现这一功能,请参看以下代码:  Private Sub Command1_Click()  On Error Resume Next  With CommonDialog1  '设置初始化...
  • 免控件利用API获取选择的文件夹路径 以方便获取该文件夹下的文件处理
  • 判断打开文件,并显示其路径程序(VB6.0代码编写) 判断打开文件,并显示其路径。 QQ223857666勾月
  • 打开一个文件夹或者一个文件该怎么写?当然是ShellExecute函数了,但是他不能完成文件属性窗口的调用。 要想调用一个文件的属性窗口,就要用到ShellExecute的扩展ShellExecuteEx了 先看怎么声明 Private Declare ...

    打开一个文件夹或者一个文件该怎么写?当然是ShellExecute函数了,但是他不能完成文件属性窗口的调用。

    要想调用一个文件的属性窗口,就要用到ShellExecute的扩展ShellExecuteEx了

    先看怎么声明

    Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long

    参数很简单,只有一个SHELLEXECUTEINFOA,但是SHELLEXECUTEINFOA这个结构却不简单

    声明

    Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
    End Type

    我擦,这么多成员

    其实用到的不多,只要指定其中的几个就可以了,先看看这个结构的介绍(以下摘自MSDN,翻译有google翻译)

    会员

    CBSIZE

    类型:DWORD

    需要。这个结构的大小,以字节为单位。

    fMask

    类型:ULONG

    表明其他结构成员的内容和有效性的标志; 以下值的组合:

    SEE_MASK_DEFAULT(0x00000000)

    使用默认值。

    SEE_MASK_CLASSNAME(0x00000001)

    使用lpClass成员给出的类名。如果同时设置了SEE_MASK_CLASSKEY和SEE_MASK_CLASSNAME,则使用类密钥。

    SEE_MASK_CLASSKEY(0x00000003)

    使用由hkeyClass成员给出的类密钥。如果同时设置了SEE_MASK_CLASSKEY和SEE_MASK_CLASSNAME,则使用类密钥。

    SEE_MASK_IDLIST(0x00000004)

    使用由lpIDList成员给出的项目标识符列表。所述lpIDList构件必须指向一个ITEMIDLIST结构。

    SEE_MASK_INVOKEIDLIST(0x0000000C)

    使用所选项目的快捷菜单处理程序IContextMenu界面。使用lpFile通过其文件系统路径或lpIDList来标识项目以通过其PIDL标识项目。此标志允许应用程序使用ShellExecuteEx从快捷菜单扩展中调用动词,而不是注册表中列出的静态动词。

    注意    SEE_MASK_INVOKEIDLIST覆盖并隐含SEE_MASK_IDLIST。
     

    SEE_MASK_ICON(0x00000010)

    使用hIcon成员给出的图标。该标志不能与SEE_MASK_HMONITOR组合。

    注意    此标志仅用于Windows XP及更早版本。在Windows Vista中忽略它。
     

    SEE_MASK_HOTKEY(0x00000020)

    使用由dwHotKey成员给出的键盘快捷键。

    SEE_MASK_NOCLOSEPROCESS(0x00000040)

    用于指示hProcess成员接收进程句柄。此句柄通常用于允许应用程序查明用ShellExecuteEx创建的进程何时终止。在某些情况下,例如通过DDE对话满足执行时,不会返回句柄。调用应用程序负责在不再需要时关闭句柄。

    SEE_MASK_CONNECTNETDRV(0x00000080)

    验证共享并连接到驱动器号。这使重新连接断开的网络驱动器。所述lpFile构件是在网络上的文件的UNC路径。

    SEE_MASK_NOASYNC(0x00000100)

    在返回之前等待执行操作完成。此标志应由使用ShellExecute表单的调用方使用,这些表单可能会导致异步激活,例如DDE,并创建可能在后台线程上运行的进程。(注:的ShellExecuteEx在默认情况下在后台线程运行,如果来电者的线程模型是不是公寓。)调用的ShellExecuteEx从后台线程已经运行的进程应该总是通过此标志。此外,在调用ShellExecuteEx之后立即退出的应用程序应指定此标志。

    如果执行操作是在后台线程上执行的,并且调用者未指定SEE_MASK_ASYNCOK标志,则调用线程将等待,直到新进程启动后再返回。这通常意味着CreateProcess已被调用,DDE通信已完成,或者自定义执行委托已通知ShellExecuteEx它已完成。如果指定了SEE_MASK_WAITFORINPUTIDLE标志,则ShellExecuteEx将调用WaitForInputIdle,并在返回之前等待新进程闲置,最大超时时间为1分钟。

    有关此标志何时需要的更多讨论,请参阅备注部分。

    SEE_MASK_FLAG_DDEWAIT(0x00000100)

    不使用; 改用SEE_MASK_NOASYNC。

    SEE_MASK_DOENVSUBST(0x00000200)

    展开由lpDirectorylpFile成员给出的字符串中指定的任何环境变量。

    SEE_MASK_FLAG_NO_UI(0x00000400)

    如果发生错误,不要显示错误消息框。

    SEE_MASK_UNICODE(0x00004000)

    使用此标志来表示一个Unicode应用程序。

    SEE_MASK_NO_CONSOLE(0x00008000)

    用于继承新进程的父级控制台,而不是创建新控制台。这与CreateProcess使用CREATE_NEW_CONSOLE标志是相反的。

    SEE_MASK_ASYNCOK(0x00100000)

    执行可以在后台线程上执行,并且调用应该立即返回而不需要等待后台线程完成。请注意,在某些情况下,ShellExecuteEx将忽略此标志,并在返回之前等待该过程完成。

    SEE_MASK_NOQUERYCLASSSTORE(0x01000000)

    不曾用过。

    SEE_MASK_HMONITOR(0x00200000)

    在多显示器系统上指定显示器时使用此标志。显示器在hMonitor成员中指定。该标志不能与SEE_MASK_ICON组合。

    SEE_MASK_NOZONECHECKS(0x00800000)

    在Windows XP中引入。不要执行区域检查。此标志允许ShellExecuteEx绕过由IAttachmentExecute放置到位的区域检查。

    SEE_MASK_WAITFORINPUTIDLE(0x02000000)

    新流程创建完成后,请等待进程在返回之前变为空闲状态,并等待一分钟。有关更多详细信息,请参阅WaitForInputIdle

    SEE_MASK_FLAG_LOG_USAGE(0x04000000)

    在Windows XP中引入。跟踪此应用程序启动的次数。具有足够高计数的应用程序出现在开始菜单的最常用程序列表中。

    SEE_MASK_FLAG_HINST_IS_SITE(0x08000000)

    所述hInstApp构件用于指定所述的IUnknown实现的对象的的IServiceProvider。这个对象将被用作站点指针。站点指针用于为ShellExecute函数,处理程序绑定进程和调用的动词处理程序提供服务。

    要在Windows 8之前的操作系统中使用SEE_MASK_FLAG_HINST_IS_SITE,请在程序中手动定义它:#define SEE_MASK_FLAG_HINST_IS_SITE 0x08000000。

    HWND

    类型:HWND

    可选的。父窗口的句柄,用于显示执行此功能时系统可能产生的任何消息框。该值可以是NULL

    lpVerb

    类型:LPCTSTR

    一个字符串,被称为动词,用于指定要执行的操作。可用动词的集合取决于特定的文件或文件夹。通常,对象快捷菜单中的可用动作是可用的动词。该参数可以为NULL,在这种情况下,如果可用,则使用默认动词。如果不是,则使用“打开”动词。如果两个动词都不可用,则系统使用注册表中列出的第一个动词。以下动词通常使用:

    编辑

    启动编辑器并打开文档进行编辑。如果lpFile不是文档文件,则该函数将失败。

    探索

    探索由lpFile指定的文件夹。

    从指定的目录开始搜索。

    打开

    打开由lpFile参数指定的文件。该文件可以是可执行文件,文档文件或文件夹。

    打印

    打印由lpFile指定的文档文件。如果lpFile不是文档文件,则该函数将失败。

    性能

    显示文件或文件夹的属性。

    lpFile

    类型:LPCTSTR

    空终止字符串的地址,它指定ShellExecuteEx将执行由lpVerb参数指定的操作的文件或对象的名称。ShellExecuteEx函数支持的系统注册表动词包括可执行文件和文档文件的“打开”以及已为其注册打印处理程序的文档文件的“打印”。其他应用程序可能会通过系统注册表添加Shell动词,例如.avi和.wav文件的“play”。要指定一个Shell命名空间对象,请传递完全限定的解析名称,并在fMask参数中设置SEE_MASK_INVOKEIDLIST标志。

    注意    如果设置了 SEE_MASK_INVOKEIDLIST 标志,则可以使用 lpFilelpIDList 分别通过其文件系统路径或其PIDL来识别项目。一个值-两个 lpFilelpIDList  -必须进行设置。
     
    注意    如果路径不包含在名称中,则假定当前目录。
     
    lpParameters

    类型:LPCTSTR

    可选的。包含应用程序参数的以空字符结尾的字符串的地址。参数必须用空格分隔。如果lpFile成员指定一个文档文件,则lpParameters应该为NULL

    lpDirectory

    类型:LPCTSTR

    可选的。指定工作目录名称的以空字符结尾的字符串的地址。如果此成员为NULL,则当前目录用作工作目录。

    n显示

    类型:int

    需要。指定应用程序在打开时如何显示的标志; 为ShellExecute函数列出的其中一个SW_值。如果lpFile指定一个文档文件,该标志只是传递给关联的应用程序。决定如何处理它取决于应用程序。

    hInstApp

    类型:HINSTANCE

    [out]如果设置了SEE_MASK_NOCLOSEPROCESS并且ShellExecuteEx调用成功,则它将此成员设置为大于32的值。如果该函数失败,则将其设置为指示失败原因的SE_ERR_XXX错误值。虽然hInstApp为了兼容16位Windows应用程序而声明为HINSTANCE,但它并不是真正的HINSTANCE。它只能转换为int,并与32或以下SE_ERR_XXX错误代码进行比较。

    SE_ERR_FNF(2)

    文件未找到。

    SE_ERR_PNF(3)

    找不到路径。

    SE_ERR_ACCESSDENIED(5)

    拒绝访问。

    SE_ERR_OOM(8)

    内存不足。

    SE_ERR_DLLNOTFOUND(32)

    未找到动态链接库。

    SE_ERR_SHARE(26)

    无法共享打开的文件。

    SE_ERR_ASSOCINCOMPLETE(27)

    文件关联信息不完整。

    SE_ERR_DDETIMEOUT(28)

    DDE操作超时。

    SE_ERR_DDEFAIL(29)

    DDE操作失败。

    SE_ERR_DDEBUSY(30)

    DDE操作繁忙。

    SE_ERR_NOASSOC(31)

    文件关联不可用。

    lpIDList

    类型:LPVOID

    绝对ITEMIDLIST结构(PCIDLIST_ABSOLUTE)的地址,用于包含唯一标识要执行的文件的项目标识符列表。如果fMask成员不包含SEE_MASK_IDLISTSEE_MASK_INVOKEIDLIST,则该成员将被忽略。

    lpClass

    类型:LPCTSTR

    以空值终止的字符串的地址,指定以下之一:

    • 一个ProgId。例如,“Paint.Picture”。
    • 一个URI协议方案。例如,“http”。
    • 文件扩展名。例如,“.txt”。
    • HKEY_CLASSES_ROOT下的注册表路径,用于命名包含一个或多个Shell动词的子项。这个键将有一个符合Shell动态注册表模式的子键,比如

      shell \ 动词名称

    如果fMask不包含SEE_MASK_CLASSNAME,则该成员将被忽略。

    hkeyClass

    类型:HKEY

    文件类型的注册表项句柄。此注册表项的访问权限应设置为KEY_READ。如果fMask不包含SEE_MASK_CLASSKEY,则该成员将被忽略。

    dwHotKey

    类型:DWORD

    与应用程序关联的键盘快捷键。低位字是虚拟键码,高位字是修饰符标志(HOTKEYF_)。有关修饰符标志的列表,请参阅WM_SETHOTKEY消息的描述。如果fMask不包含SEE_MASK_HOTKEY,则该成员将被忽略。

    DUMMYUNIONNAME
    惠康

    类型:手柄

    文件类型图标的句柄。如果fMask不包含SEE_MASK_ICON,则该成员将被忽略。该值仅在Windows XP及更早版本中使用。在Windows Vista中忽略它。

    HMONITOR

    类型:手柄

    要显示文档的显示器的句柄。如果fMask不包含SEE_MASK_HMONITOR,则该成员将被忽略。

    hProcess

    类型:手柄

    好了,看代码吧

    Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
    Private Const SEE_MASK_INVOKEIDLIST As Long = &HC
    Private Const SW_SHOW As Long = 5
    Private Const SEE_MASK_ICON As Long = &H10

    Private Sub Form_Load()
    Dim s As SHELLEXECUTEINFO
    s.cbSize = Len(s) '结构大小
    s.lpVerb = "properties" '当properties时打开属性窗口,open时打开文件或文件夹
    s.lpFile = "F:\Recv" '路径
    s.nShow = SW_SHOW
    s.fMask = SEE_MASK_INVOKEIDLIST
    ShellExecuteEx s

    End Sub

     


    转载于:https://www.cnblogs.com/Evilangel/p/8456944.html

    展开全文
  • 判断打开文件,并显示其路径程序(VB6.0源代码编写)
  • 我们在使用电脑时,用户常常会有需求打开一个指定文件夹,并自动选中某个指定文件。...不过那节课程中,我们主要针对shell命令直接打开文件的功能做了学习。 那么这节课就是对shell命令的一个扩展:如何用shell命令打

    我们在使用电脑时,用户常常会有需求打开一个指定文件夹,并自动选中某个指定文件。

    比如在用浏览器下载文件完成后,可以打开所在文件夹,这就用到这个功能。可以看到这个功能还是非常的实用的。

    那么如何实现这个功能呢?

    其实非常的简单,那就是要用shell函数了,这个函数在我的公众号——大讲堂——shell方法中是有详细学习课程的(不清楚的读者可以先去了解一下,以免本节课程看不懂)。不过那节课程中,我们主要针对shell命令直接打开文件的功能做了学习。

    那么这节课就是对shell命令的一个扩展:如何用shell命令打开文件夹,以及实现打开文件夹后选中指定文件的功能。

    一、打开指定文件夹

    需求:打开E:\test文件夹(E盘下面建了一个名为test的文件夹)。

    实现:

    Private Sub Command1_Click()
        Dim x As Long
        x = Shell("explorer.exe E:\test", 1)
    End Sub
    

    说明:
    1,这里实现方式与直接打开指定文件的语法是一样的,只是这里路径不用写到文件,只需要写到文件夹即可。
    2,shell方法第一个参数是字符串表达式,第二个参数是打开后的显示方式

    二,打开文件夹,并选中指定文件

    需求:打开打开E:\test文件夹,并选中“222.pptx”这个文件。

    文件夹内容如图:

    在这里插入图片描述

    实现代码:

    Private Sub Command1_Click()    
        Dim x As Long    
        x = Shell("explorer.exe /select,E:\test\222.pptx", 1)
    End Sub
    

    运行效果:
    单击测试按钮后,程序将自动弹出test文件夹,并标选中222.pptx文件。(但不打开)。

    在这里插入图片描述

    这里再解释一下这句代码:

    Shell("explorer.exe /select,E:\test\222.pptx", 1)
    

    1,explorer.exe 会自动使用默认软件来打开后面的文件。

    2,/select 表示要选中指定文件,而不是直接打开,如果不写则表示直接打开文件。

    3,第二个参数1表示打开方式,有多个参数可以设置,具体可以我参考另外一篇关于shell的文章。

    在这里插入图片描述

    展开全文
  • VB6.0通用遍历所选文件夹...新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白文件(如不需要请注释相关代码)。把本文件代码复制粘贴进去,单击按钮即可弹窗提示选择文件夹。
  • VB6.0已经过时,想深入学习它的话,还望三思而后行。 喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。 该博文仅可用于测试与参考。 转载于:https://my.oschina.net/zhichengjiu/blog/3073965

         IDE : Visual Basic 6.0精简版
          OS : Windows 10 x64
    typesetting : Markdown
           blog : my.oschina.net/zhichengjiu
          gitee : gitee.com/zhichengjiu

    GUI

    code

    Private Sub Command1_Click()
    
    ' 注意:要生成exe程序。
    Shell "explorer " & App.Path & "\demo.txt"
    
    End Sub
    
    

    result

    resource

    • [ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation
    • [ .NET ] dotnet.microsoft.com
    • [ 平台 ] www.oschina.net
    • [ 平台 ] gitee.com


    感谢帮助 志成就 的人们。
    VB6.0已经过时,想深入学习它的话,还望三思而后行。
    喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。
    该博文仅可用于测试与参考。

    转载于:https://my.oschina.net/zhichengjiu/blog/3073965

    展开全文
  • VB实现选取文件夹路径

    万次阅读 2014-04-22 18:24:36
    VB中直接选取文件路径直接使用控件就可以实现 选取文件夹路径可以采用下述办法。   添加模块文件直接进行调用。模块内容代码 '---------------------------------------------------------------------------...
  • VB打开Excel文件

    万次阅读 2014-03-05 17:12:41
    (1)vb打开Excel    用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入  下面是EXCEL对象的详解 1 前言  做为一种简捷、系统的 Windows应用程序开发工具,VB具有强大的数据处理功能,提供了...
  • 摘要:VB源码,文件操作,文件拖拽,拖放打开文件 VB实现的子类化文件拖拽打开实例源码,能实现List Text控件的文件拖放打开功能,也支持多文件同时拖放打开的功能。用拖拽的方式把需要打开的文件图标,拖放到本窗口中...
  • 此源代码仅为利用API来获取打开文件完整路径 以及 保存时的完整路径 不会实际打开文件或保存文件 如果需要实际操作则需要另外代码实现 这里就不实例了. 主要免控件而利用API实现打开保存对话框
  • 代码 ...'--------------------'类模块:FSO'SielnceNet@qq.Com'时间:2008-7-415:57:53'说明:打开/保存任意编码格式的文本文件'--------------------OptionExplicitPrivateFileBodyAsString'文件内容...
  • VB 检测 U盘 的插拔 并 获取文件名 及路径
  • 文章录入浣花溪 责任编辑snow 1038 字体小 大 by daokers 众所周知在vb中如果是打开某一个文件的话非常简单使用CommonDialog组件即可轻松完成但是他只能选择文件之后或许选取的文件路径而如果想要浏览文件夹就没这么...
  • vb打开文件夹浏览框的方法总结

    万次阅读 2017-05-09 17:35:08
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
  • VB 检测文件是否存在,操作时请输入文件所在路径及文件名:单击操作按钮后,将执行以下的代码:  Private Sub Command1_Click()  X% = jc%(Text1.Text) '调用自定义函数返回检测结果  If X% = True Then '判断...
  • 内容索引:VB源码,界面编程,记忆窗体,菜单历史 很普通的一个Vb窗体菜单,特别之处是它可以记忆曾经打开过的文件路径,像Word文档就有这种功能,能记录下最近10个打开过的文档,实现此功能有不少方法是使用INI文件,...
  • 1.创建一个类,命名为:myfile ,复制下面代码进去 '判断文件是否存在 Public Function isFileExis(path As String) As Boolean If Dir(path, vbDirectory) = "" Then '不存在 isFileExis = False Else '存
  • Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOPENFILENAME As OPENFILENAME) As Long '“打开” Private Declare Function GetActiveWindow Lib “user32” () As...
  • VB6写的一款笔记软件的源码,里面包含有很多窗体控件的使用技巧,比如MSHFlexgrid表格、TreeView的动态加载... 这份源代码在我电脑可以正常使用,我也没再其它vb环境测试了,第一次打开会提示需要选择一次数据库路径
  • 如何在VB中通过相对路径引用标准DLL

    千次阅读 2019-06-25 22:57:28
    ... 很长时间以来,都认为只能通过绝对路径引用标准DLL中的函数。其实,你也可以用相对路径。很简单的,现在就尝试一下吧。 ...1)绝对路径方法 ...比如你的DLL文件位于c:\testDLL\debug\testDLL.dll 一般来说,...
  •  VB的Open语句打开文件,第1个字节位于1,而WinHex等十六进制编辑器第1个字节位于0  Private Sub MakeDirectory(strMainDir As String, strDirPath As String)  根据一个相对目录路径名,判断目录是否存在,不...
  • 1.本程序的对话框和OpenFileDialog对话框一样,可以输入路径, 2.可以选择选择文件夹,同时选择多个文件夹。 3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个...
  • 代码查找文件夹下所有文件,包含子文件夹
  • VB 打开文件夹,并选中指定的文件

    千次阅读 2011-11-24 20:18:20
    这个功能比较方便,在打开文件夹时自动选中目标项,迅雷下载文件完成后的"打开文件夹"功能就是这样.实现方面很简单,就是在调用EXPLORER时加个/Select参数就行了,只是比较难知道而已.语法:explorer /select,&...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 16,889
精华内容 6,755
关键字:

vb打开文件路径的代码