精华内容
下载资源
问答
  • VB实现选取文件夹路径

    万次阅读 2014-04-22 18:24:36
    选取文件夹路径可以采用下述办法。   添加模块文件直接进行调用。模块内容代码 '--------------------------------------------------------------------------------------- ' Module : ModuleFile ' Author ...

    在VB中直接选取文件路径直接使用控件就可以实现

    选取文件夹路径可以采用下述办法。

     

    添加模块文件直接进行调用。模块内容代码

    '---------------------------------------------------------------------------------------
    ' Module    : ModuleFile
    ' Author    : ROVAST
    ' Date      : 2014-4-22
    ' Purpose   : 文件相关操作模块
    ' Function  : 1、选取文件夹
    '---------------------------------------------------------------------------------------
    
    Option Explicit
    
    Private Type BrowseInfo
        hWndOwner As Long
        pIDLRoot As Long
        pszDisplayName As Long
        lpszTitle As Long
        ulFlags As Long
        lpfnCallback As Long
        lParam As Long
        iImage As Long
    End Type
    Const BIF_RETURNONLYFSDIRS = 1
    Const BIF_NEWDIALOGSTYLE = &H40
    Const BIF_EDITBOX = &H10
    Const BIF_USENEWUI = BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
    Const MAX_PATH = 260
    Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
    Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    
    
    '---------------------------------------------------------------------------------------
    ' Procedure : BrowseForFolder
    ' Author    : ROVAST
    ' Date      : 2014-4-22
    ' Purpose   : 选取文件夹(不含新建文件夹指令) 返回BrowseForFolder
    '---------------------------------------------------------------------------------------
    '
    Public Function BrowseForFolder(Optional sTitle As String = "请选择文件夹") As String
        Dim iNull As Integer, lpIDList As Long, lResult As Long
        Dim sPath As String, udtBI As BrowseInfo
    
        With udtBI
            .hWndOwner = 0 ' Me.hWnd
            .lpszTitle = lstrcat(sTitle, "")
            .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_USENEWUI
        End With
        lpIDList = SHBrowseForFolder(udtBI)
        If lpIDList Then
           sPath = String$(MAX_PATH, 0)
            SHGetPathFromIDList lpIDList, sPath
            CoTaskMemFree lpIDList
           iNull = InStr(sPath, vbNullChar)
            If iNull Then
              sPath = Left$(sPath, iNull - 1)
            End If
        End If
    
        BrowseForFolder = sPath
    End Function
    
    
    '---------------------------------------------------------------------------------------
    ' Procedure : BrowseForFolder1
    ' Author    : ROVAST
    ' Date      : 2014-4-22
    ' Purpose   : 选取文件夹路径(含新建文件夹) 返回BrowseForFolder1 字符串
    '---------------------------------------------------------------------------------------
    '
    Public Function BrowseForFolder1(Optional sTitle As String = "请选择文件夹") As String
        Dim iNull As Integer, lpIDList As Long, lResult As Long
        Dim sPath As String, udtBI As BrowseInfo
    
        With udtBI
            .hWndOwner = 0 ' Me.hWnd
            .lpszTitle = lstrcat(sTitle, "")
            .ulFlags = BIF_RETURNONLYFSDIRS
        End With
        lpIDList = SHBrowseForFolder(udtBI)
        If lpIDList Then
           sPath = String$(MAX_PATH, 0)
            SHGetPathFromIDList lpIDList, sPath
            CoTaskMemFree lpIDList
           iNull = InStr(sPath, vbNullChar)
            If iNull Then
              sPath = Left$(sPath, iNull - 1)
            End If
        End If
    
        BrowseForFolder1 = sPath
    End Function
    


    在主窗体中可以插入按钮。添加下述代码,其中前一个没有新建文件夹功能,后一个有新建文件夹功能

    Option Explicit
    
    Private Sub Command1_Click()
        Dim path1 As String
        path1 = BrowseForFolder
        MsgBox path1
    End Sub
    
    Private Sub Command2_Click()
        Dim path As String
        path = BrowseForFolder1
        MsgBox path
    End Sub
    


    此方法也是摘自互联网,自己只是整理了一下,具体原理自己也不是很清楚。当然要是有人愿意分析更好了,现在由于时间原因,也只能是拿来主义了

    参考地址:http://zhidao.baidu.com/question/333483648.html?qbl=relate_question_3&word=vb%20%D1%A1%D4%F1%CE%C4%BC%FE%BC%D0%B6%D4%BB%B0%BF%F2

    展开全文
  • VB 浏览并选择文件夹

    热门讨论 2011-08-24 16:34:32
    像浏览文件一样浏览文件夹,能够选择文件夹。写成了一个函数放在了模块里。函数返回选择文件夹路径
  • 我们在使用电脑时,用户常常会有需求打开一个指定文件夹,并自动选中某个指定文件。 比如在用浏览器下载文件完成后,可以打开所在文件夹,这就用到这个功能。可以看到这个功能还是非常的实用的。 那么如何实现这个...

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

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

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

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

    在这里插入图片描述

    展开全文
  • VB遍历指定文件夹内所有文件,希望对您有用!
  • vb复制整个文件夹指定位置

    热门讨论 2011-08-16 09:34:52
    VB复制文件的一段源码,没有源程序,大家拷过去用
  • 亲测可用! 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
  • 可直接运行的VB6.0示例程序,实现功能:采用相对路径打开文件
  • VB6.0已经过时,想深入学习它的话,还望三思而后行。 喜欢Windows系统的同学,可以了解一下 .NET 和 .NET Core。 该博文仅可用于测试与参考。 转载于:https://my.oschina.net/zhichengjiu/blog/3073970

         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()
    
    If Dir("D:\dir-demo", vbDirectory) = "" Then '判断文件夹是否存在
        MkDir ("D:\dir-demo")   '创建文件夹
    End If
    
    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/3073970

    展开全文
  • VB.net 想点击button获取选择文件夹路径,并把路径存入文本框1中。网上搜的都是添加commondialog控件,可是我只看到有button,新手求解,谢谢!

    VB.net  想点击button获取选择文件夹的路径,并把路径存入文本框1中。

    网上搜的都是添加commondialog控件,可是我只看到有button,新手求解,谢谢!

    展开全文
  • 弹出式文件夹浏览对话框。 一个模块,一个函数就可调用。
  • 该文档记录了如何在VC6中删除指定文件夹下的文件,包含程序代码
  •  sPath = VBA.InputBox("初始路径:", , "C:/program files")  With tBrowseInfo  .hWndOwner = Me.hWnd  .lpszTitle = lstrcat(szTitle, "")  .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN ...
  • 1.本程序的对话框和OpenFileDialog对话框一样,可以输入路径, 2.可以选择选择文件夹,同时选择多个文件夹。 3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个...
  • VB查找文件(可搜索子文件夹

    热门讨论 2011-07-02 18:22:51
    里面含VB查找文件的源代码,可搜索含子文件夹的地址。只要稍加修改便可以成为您的代码!而且含有代码解释和相关知识,帮助您快速掌握用VB查找文件的功能!
  • 定义变量A,当A等于1时,在指定目录下(如F:\VB TEST)找到按时间排序最后创建的的一个文件夹,并将文件夹定义为变量B,把文件夹名称显示到text1中。 2.定义变量C,当C等于1时,在指定目录下如F:\VB TEST查找到最新...
  • vb2005开发的遍历指定文件夹下所有指定类型文件的代码
  • 纯代码查找文件夹下所有文件,包含子文件夹
  • VB 打开文件夹,并选中指定的文件

    千次阅读 2011-11-24 20:18:20
    这个功能比较方便,在打开文件夹时自动选中目标项,迅雷下载文件完成后的"打开文件夹"功能就是这样.实现方面很简单,就是在调用EXPLORER时加个/Select参数就行了,只是比较难知道而已.语法:explorer /select,&...
  • @echo off rem 在当前目录下搜索list文本中记录的文件,并复制到D:\test mkdir D:\test for /f %%a in (list.txt) do ( echo.%%a------list.txt for /f “delims=” %%b in (‘dir /a-d/s/b “%%a”’) do ( ...
  • 最近vb2005写了个WinCE的程序,需要采集器读取本机指定文件夹内的文件名,并通过文件名处理每个文件里的内容。 请各位高手指点一下,这个问题困扰我好几天了,一直找不到好的解决办法,再次谢过。 比较着急,有此类...
  • 1、安装工具文件获得dll文件 默认路径安装“Advantech Common Motion Driver & Utility.exe”,如下图为该安装文件。具体安装步骤,请参考“研华运动控制卡驱动安装与卸载”一文,完整安装“Advantech Common ...
  • 1. move one folder including inside ...把最近一次的log文件夹SourceFolder下的所有起始位Encrypted_* 字样的文件夹,及其这些文件夹里的所有文件,移去收藏文件夹TargetFolder下的以当时时间命名的文件夹下。 ...
  • vb.net 实现删除文件夹指定文件 需求 :删除 ‘D:\VB’ 这个路径下面所有文件名包含"123"的"xml"类型文件 代码。例,VB_aaa123987.xml Dim path1 = "D:\VB\" Dim OriginalFilePath = New DirectoryInfo(path1) ...
  • vb WebBrowser文件夹视图

    2010-08-17 02:03:32
    通过改变WebBrowser1.Document.CurrentViewMode属性来实现 值 查看方式 1 图标 3 列表 4 详细资料 5 缩略图 6 平铺 7 幻灯片(不允许以幻灯片方式查看时自动改为缩略图)
  • 这两天折腾批量修改文件信息的小程序;需要指定一个空路径保存修改后的图纸。...获得指定文件夹路径 (defun c:get_directory() (vl-load-com) (command "cmdecho" 0) (setq sh (vla-getInterfaceObject (vlax-g...
  • // 获取文件夹绝对路径 显示在 txtbox 控件里 System.Windows.Forms.FolderBrowserDialog folder = new System.Windows.Forms.FolderBrowserDialog(); if (folder.ShowDialog() == DialogResult.OK) { this....
  • '//生成文件夹路径 Call createFolder(fPath) 'MsgBox fPath '//生成文件 '//写入 Open path For Output As #1 Print #1, content; Close #1 End Function '作用: 写入文件内容,如果文件不存在,则逐级...
  • 代码 FunctionSearchFiles(PathAsString,FileTypeAsString)OnErrorGoToErrMsgDimFiles()AsString'文件路径DimFolder()AsString'文件夹路径Dima,b,cAsLong...
  • 遍历指定文件夹下的所有文件修改文件名,去除所有空格代码 修改文件名,去除所有空格 代码 下面展示 代码。 import os print("当前路径: ",os.getcwd()) image_path = 'wenjian' for filename in os.listdir(image_...
  • 得到指定文件夹下的文件列表 ※ VB 选择文件夹并取文件夹名 ※   相关 文 章 参考 : ★ VB 查找替代字符串的函数 ★ VB 换行气泡提示类 ★ VB/VBA 通用路径选择对话框 ★ ASCII ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,836
精华内容 3,134
关键字:

vb指定文件夹路径