精华内容
下载资源
问答
  • 免控件利用API获取选择的文件夹路径 以方便获取该文件夹下文件处理
  • VB遍历读取文件夹中的所有JPG图片文件,程序运行后,会直接列出目录中所有的JPG文件,也就是不读取其它格式的文件,当点击列表中的图片文件时,右侧会预览显示该图片,在此基础上您可实现一款简单的图片浏览器,如...
  • 我们在使用电脑时,用户常常会有需求打开一个指定文件夹,并自动选中某个指定文件。 比如在用浏览器下载文件完成后,可以打开所在文件夹,这就用到这个功能。可以看到这个功能还是非常的实用的。 那么如何实现这个...

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

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

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

    其实非常的简单,那就是要用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的文章。

    在这里插入图片描述

    展开全文
  • 1.本程序的对话框和OpenFileDialog对话框一样,可以输入路径, ...3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个老土的对话框选文件夹了!!!
  • Private Sub CmdOK_Click()If TextPoNum.Text = "" ThenMsgBox "请输入你需要打开的EXCEL文件!"ElseDim oleExcel As ObjectDim PoNum As StringDim a As StringSet oleExcel = CreateObject("Excel.Application")a ...

    Private Sub CmdOK_Click()

    If TextPoNum.Text = "" Then

    MsgBox "请输入你需要打开的EXCEL文件!"

    Else

    Dim oleExcel As Object

    Dim PoNum As String

    Dim a As String

    Set oleExcel = CreateObject("Excel.Application")

    a = Left(TextPoNum.Text, 5)

    With oleExcel

    With .Application.FileSearch

    .NewSearch

    .LookIn = "c:\新建文件夹\a&*"

    .SearchSubFolders = True

    .FileName = TextPoNum.Text & "*.xls"

    If .Execute() > 0 Then

    oleExcel.Visible = True

    oleExcel.Workbooks.Open .FoundFiles(1)

    Else

    MsgBox "没有找到符合条件的文件."

    End If

    End With

    End With

    End If

    这样为什么打不开

    展开全文
  • vb打开文件

    2011-11-11 23:13:51
    vb打开文件,内涵代码……………………………………………………………………………………
  • vb纯代码打开文件

    2011-11-30 21:46:32
    vb打开文件 纯代码打开的
  • VB6.0通用遍历所选文件夹及其多重子文件夹操作,直接使用Command按钮过程可以操作,无需其他额外控件。新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白文件(如不需要请...
  • VB打开浏览文件夹对话框 实现文件夹选取
  • VB遍历指定文件夹内所有文件,希望对您有用!
  • VB编程:获取文件夹下所有文件-1

    千次阅读 2017-03-10 18:24:53
     Text1.Text = "D:\vb小程序\vb实例"  Dim spec As Variant  spec = Array("*.*", "*.exe", "*.vbp")  Combo1.Text = spec(0)  For i = 0 To UBound(spec)  Combo1.AddItem spec(i)  Next i ...


    Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String) As Long
        DoEvents
        Static Files As Long
        Dim sDir As String
        Dim sSubDirs() As String
        Dim Index As Long
        Dim sFiles() As String
        
        If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
        '获取文件名和数目
        
        sDir = Dir(sPath & sFileSpec)
        
        Do While Len(sDir)
        
           Files = Files + 1
           ReDim Preserve sFiles(1 To Files)
           sFiles(Files) = sPath & sDir
           
           '显示到列表
           List1.AddItem sFiles(Files)
           List1.ListIndex = List1.ListCount - 1
           
           sDir = Dir
        Loop
        '获取文件夹名称
        Index = 0
        sDir = Dir(sPath, vbDirectory)
        Do While Len(sDir) 'sDir <> ""
            If sDir <> "." And sDir <> ".." Then
                If GetAttr(sPath & sDir) And vbDirectory Then
                    Index = Index + 1
                    ReDim Preserve sSubDirs(1 To Index)
                    sSubDirs(Index) = sPath & sDir & "\"
                End If
            End If
            sDir = Dir
        Loop
        '递归调用,获取子文件夹目录
        For Index = 1 To Index
            Call TreeSearch(sSubDirs(Index), sFileSpec)
        Next Index
        TreeSearch = Files
    End Function


    Private Sub Command1_Click()
        
        Print TreeSearch(Text1.Text, Combo1.Text)
        
    End Sub


    Private Sub Command2_Click()
        End
    End Sub


    'Private Sub Command3_Click()
    '    List1.Clear
    'End Sub


    Private Sub Form_Load()
        Text1.Text = "D:\vb小程序\vb实例"
        Dim spec As Variant
        spec = Array("*.*", "*.exe", "*.vbp")
        Combo1.Text = spec(0)
        For i = 0 To UBound(spec)
            Combo1.AddItem spec(i)
        Next i
    End Sub

    展开全文
  • VB6.0基础 打开文件夹

    2019-09-17 17:09:49
    VB6.0已经过时,想深入学习它的话,还望三思而后行。 喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。 该博文仅可用于测试与参考。 转载于:https://my.oschina.net/zhichengjiu/blog/3073966

         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", 1
    
    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/3073966

    展开全文
  • 可直接运行的VB6.0示例程序,实现功能:采用相对路径打开文件
  • VBA读取文件夹下所有文件的三种方法,能够读取到子文件夹下所有的文件
  • VB打开多个文件实现

    2013-06-14 11:57:31
    VB编的打开简单打开文件程序,可以一次性选中并打开多个文件
  • vb打开文件夹浏览框的方法总结

    万次阅读 2017-05-09 17:35:08
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
  • VB 浏览并选择文件夹

    热门讨论 2011-08-24 16:34:32
    像浏览文件一样浏览文件夹,能够选择文件夹。写成了一个函数放在了模块里。函数返回选择文件夹的路径。
  • VS2005开发VB.NET文件夹里面多个记事本列字段合并成新的记事本;
  • VB打开TXT文件

    2013-05-24 21:59:53
    要求打开TXT,而且要在那个程序所在的文件夹打开 我为什么用Open App.Path & "\aa.txt" For Input As #1 没有用呢 app.path & "\aa.txt" aa.txt这个文件要放哪里
  • VB 打开文件夹,并选中指定的文件

    千次阅读 2011-11-24 20:18:20
    这个功能比较方便,在打开文件夹时自动选中目标项,迅雷下载文件完成后的"打开文件夹"功能就是这样.实现方面很简单,就是在调用EXPLORER时加个/Select参数就行了,只是比较难知道而已.语法:explorer /select,&...
  • 定义变量A,当A等于1时,在指定目录(如F:\VB TEST)找到按时间排序最后创建的的一个文件夹,并将文件夹定义为变量B,把文件夹名称显示到text1中。 2.定义变量C,当C等于1时,在指定目录如F:\VB TEST查找到最新...
  • Public Sub Search_folder(folder As String) '遍历指定文件夹下的所有文本夹 Dim path Dim filename Dim folders(1 To 20000) Dim i%, j% i = 1 j = 1 '...
  • VB 打开文件夹 并 定位文件

    千次阅读 2014-10-17 10:45:29
    Shell "explorer /select," & App.Path & "\" & App.EXEName & ".exe", 1 Shell "explorer /select," & App.Path & "\" & App.EXEName & ".exe", 1
  • VB实现文件复制的实例源程序,很单一的功能,仅供初学VB的朋友参考,有助于帮助新手理解FSO文件系统的底层知识,源码编译截图如上图所示。
  • 支持预览的vb文件文件夹打开对话框,vb类 可以很容易在自己的程序中支持文件打和文件夹开对话框的预览功能(源代码)
  • VB6.0已经过时,想深入学习它的话,还望三思而后行。 喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。 该博文仅可用于测试与参考。 转载于:https://my.oschina.net/zhichengjiu/blog/3073965
  • 打开系统的“浏览文件”对话框,很多人都用控件,这固然很好,但如果用VB自身编程去实现岂不是更好,这个源码就是用VB中的API...
  • vb编写实现浏览文件夹对话框,实现比较简单,运用到了SHBrowseForFolder和SHGetPathFromIDList两个API函数,希望对你有用。
  • VB 文件夹浏览选择控件 你看到的文件来自:E动天下(http:/www.2e3.org)
  • 'Check Public Function Check() As Variant On Error GoTo erlb Dim StrDir As String StrDir = ThisWorkbook.Worksheets("Path").Range("B2") objfile = Dir(StrDir & "\*.xlsx") ThisWorkbook...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 15,327
精华内容 6,130
关键字:

vb打开文件夹下的文件