精华内容
下载资源
问答
  • VB 文件夹浏览操作 控件 ,用于批量处理文件 ,复制 移动 等都非常好用。
  • VB 文件夹浏览选择控件 你看到的文件来自:E动天下(http:/www.2e3.org)
  • VB6.0通用遍历所选文件夹及其多重子文件夹操作,直接使用Command按钮过程可以操作,无需其他额外控件。新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白文件(如不需要请...
  • 弹出式文件夹浏览对话框。 一个模块,一个函数就可调用。
  • 内容索引:VB源码,系统相关,文件夹浏览控件 VB中的文件夹列表显示控件FolderViewOcx应用实例,支持自定义、鼠标热跟踪等功能。
  • 1.本程序的对话框和OpenFileDialog...2.可以选择选择文件夹,同时选择多个文件夹。 3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个老土的对话框选文件夹了!!!
  • VB 浏览并选择文件夹

    热门讨论 2011-08-24 16:34:32
    像浏览文件一样浏览文件夹,能够选择文件夹。写成了一个函数放在了模块里。函数返回选择文件夹的路径。
  • 遍历指定文件夹下的所有文本夹,首先,获取所有的文件夹;其次,从找到的第一个文件开始,循环查找,直到没有文件为止,最后,将文件目录和文件名组合,并存放到数组中
  • 内容索引:VB源码,系统相关,自动同步,文件夹监控 VB文件夹监控、自动同步备份程序,可将指定文件夹自动同步备份到另一文件夹,可指定按时间备份,或者是按文件夹有改动时备份,程序本身具有文件夹自动监控功能,适时...
  • 摘要:VB源码,文件操作,加密文件夹 VB加密文件夹,Visualbasic6.0进行文件夹加密的例子,选择需要加密的文件夹,点击“加密”按钮即可。操作简单方便,不过作为一个成形的软件,似乎要做的功能还挺多,但是你可把此...
  • 内容索引:VB源码,系统相关,文件夹,加密 VB文件夹枷锁,锁定功能,没有密码打不开文件夹,类似加密的功能,注册表操作(不同类型,读写方法有一定区别)代码写得比较乱,这里说一下如何卸载枷锁功能,其实方法很简单...
  • 遍历整个文件夹中的文件及子文件夹,并进行复制操作,获得子文件和子文件夹的个数。一个标准的案例,VB编写
  • VB遍历读取文件夹中的所有JPG图片文件,程序运行后,会直接列出目录中所有的JPG文件,也就是不读取其它格式的文件,当点击列表中的图片文件时,右侧会预览显示该图片,在此基础上您可实现一款简单的图片浏览器,如...
  • 免控件利用API获取选择文件夹路径 以方便获取该文件夹下的文件处理
  • VB文件夹浏览器.rar

    2019-07-10 11:32:44
    VB文件夹浏览器,单击按钮,在文件夹浏览器中选择相应的文件夹,实现文件夹浏览和文件浏览,调用系统的文件夹浏览组件。单击窗体上的按钮后,将触发以下脚本:  Private Sub Command1_Click()  Text1.Text = ...
  • VB文件夹浏览器

    2013-03-23 10:11:34
    vb文件夹浏览器,各种树状结构,默契电脑系统资源管理器
  • 最基础的VB删除文件夹方法 代码,删除前弹出确认提示,先使用fso.FolderExists判断文件夹是否存在,然后使用fso.DeleteFolder删除,具体代码如下:  Dim c As Integer  Call RiStr  c = MsgBox("确认将该...
  • VB6 选择文件夹路径

    2018-07-17 14:50:00
    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 ...
    '---------------------------------------------------------------------------------------
    ' 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
    

      

    转载于:https://www.cnblogs.com/wgscd/p/9323334.html

    展开全文
  • 使用VB的FSO对象创建文件夹,删除文件夹的实例源码,比较简单的VB源码了,下载后请使用VB6重新编译运行看效果。可在当前目录中创建一个名为“test”的文件夹,也可演示将此目录删除到回收站中。虽然简单,但很基础的...
  • 内容索引:VB源码,界面编程,文件夹浏览控件,ucBrowse ucBrowse是一款很不错的多风格VB文件夹浏览控件,支持平面和3D显示,另有多种主题风格可以选择,可以控制是否显示TREE节点虚线、热跟踪以及整行选择,还包含一个...
  • API功能详解: 使用API函数SHFileOperation,这个函数可以同时拷贝、删除、改名或移动多个文件,甚至整个目录。... - lpszProgressTitle - 进度框的标题,只有选择了FOF_SIMPLEPROGRESS标志才有效。
  • vb文件夹下遍历指定后缀文件 可以直接引用 vb的bas文件
  • 内容索引:VB源码,系统相关,文件夹浏览 VB使用两种方式实现文件夹浏览,第一种是使用文件夹名浏览,第二种则使用文件夹的PIDL浏览,使用文件夹的pidl 来预先选择文件夹,释放GetPIDLFromPath调用中设置的pidl、释放...
  • VB获取Windows常用文件夹的路径信息,比如获取桌面文件夹、程序文件夹、我的文档、收藏夹、开始菜单等的默认路径,并显示在对应的文本框中。
  • VB 文件夹加密

    热门讨论 2010-06-07 16:19:06
    VB 文件夹加密 VB 文件夹加密 VB 文件夹加密
  • VB 文件夹对比工具,批放拖放功能(源码) 用列表1和列表2比较出哪些有和哪些没有的文件夹
  • VB6.0编写的文件夹自动同步程序-文件夹监控程序,可设置周期自动备份文件,备份时必须输入备份周期才能备份. 默认为1分钟,源文件夹和目标文件夹要存在。除备份功能外,程序的文件夹监控功能可适时发现目标文件夹与...
  • 带树控菜单的VB 文件夹浏览模块 控件源码,控件类型为ctl控件,本实例在视图方式上,可选择平面窗体和3D窗体,二者看喜好了,我觉得都不错。本文件夹浏览控件适合为软件添加浏览目录的功能,以Windows资源管理器中的...
  • 一个用VB写的小程序,可以用来提取某个文件下的所有文件的不带扩展名的文件名及子文件名,并输出成文本,做论文等时可能有点用。
  • 获取文件夹和文件列表

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 26,805
精华内容 10,722
关键字:

vb文件夹如何选择