精华内容
下载资源
问答
  • vb.net 如何选择文件夹 不是文件

    千次阅读 2016-02-24 11:17:45
    vb.net 如何选择文件夹 不是文件 Dim  f  As  New FolderBrowserDialog '创建个文件夹对话框 If  f.ShowDialog  =  DialogResult.OK  Then ‘如果选择了文件夹   MsgBox( "你选择的目录是: "  &  f....

    vb.net 如何选择文件夹 不是文件

    Dim   f   As   New   FolderBrowserDialog '创建个文件夹对话框
    If   f.ShowDialog   =   DialogResult.OK   Then  ‘如果选择了文件夹
          MsgBox( "你选择的目录是: "   &   f.SelectedPath)  ’显示选着文件夹路径
    End   If

    展开全文
  • 但是,如果需要获取一个文件夹路径,那么使用ShowOpen方法是无法办到的,那么该如何实现呢?步骤一:建立一个窗体和一个按钮,如下所示:步骤二:进入代码编辑器,编写如下所示代码:Option ExplicitPrivate Type ...

    我们前面的课程学习过ShowOpen方法,可以很方便的在对话框内,选择一个或者多个文件,并获取文件的路径。

    但是,如果需要获取一个文件夹路径,那么使用ShowOpen方法是无法办到的,那么该如何实现呢?

    步骤一:

    建立一个窗体和一个按钮,如下所示:

    ef1a3ed9812512575104ca2997f6e43b.png

    步骤二:

    进入代码编辑器,编写如下所示代码:

    Option ExplicitPrivate 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 LongEnd TypeConst BIF_RETURNONLYFSDIRS = 1Const BIF_NEWDIALOGSTYLE = &H40Const BIF_EDITBOX = &H10Const BIF_USENEWUI = BIF_NEWDIALOGSTYLE Or BIF_EDITBOXConst MAX_PATH = 260Private 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 LongPrivate Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As LongPrivate Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As LongPublic 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 = sPathEnd FunctionPrivate Sub Command1_Click()    '调用函数,并显示其返回结果    MsgBox BrowseForFolder()End Sub
    注意:1,本代码用到API,相对复杂,可以直接复制所有代码进行测试。2,"请选择文件夹"中的文字可以自行定义,其将会在对话框中作为提示性的文本,提示用户操作。步骤三:运行程序,点击按钮,则进入浏览文件夹的对话框,选择一个文件夹后,单击确认按钮。fd77568f6f12592f9d080e764070e72b.png步骤四:代码将获取到用户选择的文件夹路径后,返回其路径字符串。a95f5eaebaee6e3acbd2905c91d71138.png该方法还可以在浏览文件夹对话框时,新建文件夹。对于需要用户选择一个文件夹,并获取用户选择的文件夹路径,利用这个方法是相当的不错的。只是代码用到API还是比较麻烦的,不方便记忆和理解,因此建议小伙伴们可以收藏起来,以后用到的时候直接复制粘贴即可。
    展开全文
  • 以下是最简单的代码,可以选择文件夹和想要遍历的文件后缀。Sub Find_Files() Dim fldr As FileDialog Dim f, ibox, sn Set fldr = Application.FileDialog(msoFileDialogFolderPicker)fldr.Show f = fldr....

    以下是最简单的代码,可以选择文件夹和想要遍历的文件后缀。

    Sub Find_Files()

    Dim fldr As FileDialog

    Dim f, ibox, sn

    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

    fldr.Show

    f = fldr.SelectedItems(1)

    f = f & ""

    ibox = InputBox("File Must Contain (Note * wildcards can be used)", , "*.xls*")

    On Error GoTo ext

    sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & f & ibox & """ /s /a /b").stdout.readall, vbCrLf)

    Sheets(1).Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)

    ext:

    End Sub

    选择文件夹:

    30e3b9f70505a4e91bf577293a1609fd.png

    填写文件后缀,如.xls*

    34c481a4207a56a3c2d5c7619fdcd3d3.png
    展开全文
  • Option Explicit Private Sub Command1_Click() ... '*打开资源管理器 焦点 在【MyDotNetFiles】文件夹 cmd = "cmd /k explorer /select,d:\MyDotNetFiles" '*打开资源管理器 焦点 在【sn_office2007.t
     
    

     

    Option Explicit
    
    Private Sub Command1_Click()
    
        Dim cmd As String
        '*打开资源管理器 焦点 在【MyDotNetFiles】文件夹
        cmd = "cmd /k explorer /select,d:\MyDotNetFiles"
        '*打开资源管理器 焦点 在【sn_office2007.txt】文件
        'cmd = "cmd /k explorer /select,d:\sn_office2007.txt"
        Call Shell(cmd)
    
    End Sub
    
    


     

            作者:段利庆(Lee) QQ:14035344

              一卡通水电暖专家 http://www.duanliqing.kudos.cc/

    展开全文
  • 以下示例代码展示如何调用系统的文件夹选择对话框: 1 Private Function SelectFolder(ByVal Describe As String, Optional ByVal ShowNewFolder As Boolean = True) As String 2 Using nOpen As New System....
  • 今天简单讲下这3种共享操作:第1种,电脑共享选择要共享的文件或文件夹,右键选择“属性”——“共享”——“共享”——下拉框中有Everyone,或者也可以输入指定分享的某个人(域账号)——点击“添加”后可在下面设.....
  • 1:新建安装部署项目 打开VS,点击新建项目,选择:其他项目类型->安装与部署->...此主题相关图片如下: 2:安装向导 ...双击"应用程序文件夹"在右边的空白处右击,选择添加->文件,将你的做的应用
  • 关于把电脑本机文件共享给虚拟机 先在电脑建一个共享文件夹public,点击上面的共享,选择everyone 在virtual box设备处 安装 增强功能,然后要重启 在设备处设置共享文件,选择其他,从电脑选... sudo mount -t vb...
  • 原创经验,如何安装vb编程软件!本经验由宗龙龙原创,全文共460多字,阅读需要14分钟!第1步:在vb官网上,下载vb安装包,将安装包内的文件解压出来。第2步:打开解压后的文件夹,然后找到SETUP文件。第3步:双击...
  • 如何vb程序打包

    2009-04-14 09:46:00
    (1)打开VB6.0 IDE,加载你的工程,单击“外接程序”菜单下的“外接程序管理器”。 (2)在弹出的窗体中选择“打包和展开向导”(最后一项),在加载行为中选择“加载/卸载”,确定。 (3)再次单击“外接程序”菜单项,...
  • 如何使用VB编写Excel的COM组件

    千次阅读 2017-10-17 21:48:19
    (注意如果你使用的是VB精简版的没有"外接程序"的选项,请下载完整版的)  2 右击MyAddIn,点击MyAddIn属性,你可以修改工程名称(暂时不需要修改别的东西),点击确定  3 展开窗体文件夹,右击...
  • vb/vb.net开发精粹

    2011-10-04 15:25:20
    其它文件里调用宏,如何会...VB如何通过对话框可以选择路径(文件夹)? 如何让Textbox在得到光标的同时,按下Enter键才响应一个事件??? EXCEL VBA 的好多资料啊 如何样能够做到在LISTVIEW控件里,对于显示的每一
  • 展开全部附件中有完整示例,运行 hb 后会弹出62616964757a686964616fe4b893e5b19e31333337373564选择合并文件夹的对话框,选择后会将被选目录下所有工作薄的工作表合并到一个新建工作薄,为区分方便,原工作薄中的...
  • vb.net开发的时候偶尔会遇到需要修改项目(包括项目所在文件夹)名称的问题。 笔者以 “image处理”这个项目为例,谈谈如何修改项目名称: 保存目录为:image处理 现在需要将项目修改为 图像处理。 打开...
  • [url=http://www.vbbaike.com/show.asp?id=101230]其它文件里调用宏... [url=http://www.vbbaike.com/show.asp?id=101229]VB如何通过对话框可以选择路径(文件夹)?[/url] [url=http://www.vbbaike.com/show....
  • 4、VB 提供了丰富的控件选择,除了默认的工具箱面板上的控件外,还有很多控件没有罗列出来,我们可以通过“工程‖部件”命令或在工具箱面板上单击鼠标右键,在弹出的快捷菜单中选择“部件”命令,弹出如图十八的窗口...
  • 保存好的程序要编译成可以在Windows下运行的可执行程序,方法是选择“文件”菜单中的“生成工程1.exe”命令,以“窗体”为文件名保存文件到自己的文件夹,这个程序关闭VB后也可以运行,退出VB,打开自己的文件夹,...
  • VB编程资源大全

    2007-10-17 20:47:23
    grad.ZIP 在 windows 95 中实现渐变的标题栏的例子(19KB) 7,clrcombo.ZIP 从combobox中选择颜色(325KB) 8,coolbar.ZIP 在vb4中显示ie风格的coolbar(30KB) 9,gradient.ZIP 实现渐变效果...
  • 这个程序演示如何建立画刷句柄以及将它选择到一个图形设备句柄中(3KB) 10,cleardoc.ZIP 清除"文档"菜单中的快捷方式和加入快捷方式(2KB) 11,BMenu.ZIP 建立位图菜单(3KB) 12,Format.ZIP 磁盘格式化演示程序(2KB...
  • 从第1章到第21章每章一个文件夹,所有源程序文件均在对应的文件夹下。 内容简介 《VisualBasic2008应用程序开发实例精讲》从实用角度出发,通过实例精讲的形式,详细介绍了VB最新版本2008各种热门专题应用程序开发...
  • mid 窗口实现的编辑器,并能防止打开多个实例(32KB) 37,f020.ZIP 在VB中调用HELP文件并实现Winhelp的关键字、主题等功能(16KB) 38,f019.ZIP 如何VB中分割一个文件并组装恢复它(18KB) 39,f018.ZIP...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    20.4.4 显示文件夹列表 625 20.4.5 显示文件列表并选择文件 628 20.5 .NET Remoting技术 632 20.6 小结 638 20.7 练习 639 第21章 部署应用程序 640 21.1 部署 640 21.1.1 无接触部署 641 21.1.2 XCOPY部署 641 21.2...
  • o034_rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等...
  • o034_rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等...
  • o034_rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等...
  • o034_rotfont.zip 用VB实现字体的旋转 622,o033_998162026.zip 制作安装程序常用的模块(2KB) 623,o032_play024.zip 对电子爱好者是一个不错的选择(7KB) 624,o031_Play39.zip 时间、空间大小等...
  • 当我们安装VC++6.0/VB6.0时,如果选择了ACtiveX控件项(自定义安装),MSComm控件就会自动安装在计算机上了,并在系统文件夹下多了3个文件:Mscomm.srg, Mscomm32.ocx,Mscomm32.dep  注意,操作系统不同,则系统...
  • 20.4.4 显示文件夹列表 625 20.4.5 显示文件列表并选择文件 628 20.5 .NET Remoting技术 632 20.6 小结 638 20.7 练习 639 第21章 部署应用程序 640 21.1 部署 640 21.1.1 无接触部署 641 21.1.2 XCOPY部署 641 21.2...

空空如也

空空如也

1 2 3 4 5
收藏数 84
精华内容 33
关键字:

vb文件夹如何选择