精华内容
下载资源
问答
  •  sPath = VBA.InputBox("初始路径:", , "C:/program files")  With tBrowseInfo  .hWndOwner = Me.hWnd  .lpszTitle = lstrcat(szTitle, "")  .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN ...

    点击收藏

     

    可以用SHBrowseForFolder来实现

    'Objects:   Form1、Command1、Module1  
      'Form1:  
      Option   Explicit  
      Private   Const   BIF_RETURNONLYFSDIRS   =   1  
      Private   Const   BIF_DONTGOBELOWDOMAIN   =   2  
      Private   Const   MAX_PATH   =   260  
      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  
      Private   Declare   Function   lstrcat   Lib   "kernel32"   Alias   "lstrcatA"   (ByVal   lpString1   As   String,   ByVal   lpString2   As   String)   As   Long  
      Private   Declare   Function   LocalAlloc   Lib   "kernel32"   (ByVal   uFlags   As   Long,   ByVal   uBytes   As   Long)   As   Long  
      Private   Declare   Sub   CopyMemory   Lib   "kernel32"   Alias   "RtlMoveMemory"   (pDest   As   Any,   pSource   As   Any,   ByVal   dwLength   As   Long)  
      Private   Const   LPTR   =   (&H0   Or   &H40)  
      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  
      Private   Function   MyAddressOf(AddressOfX   As   Long)   As   Long  
      MyAddressOf   =   AddressOfX  
      End   Function  
       
      Private   Sub   Command1_Click()  
      Dim   lpIDList   As   Long  
      Dim   sBuffer   As   String  
      Dim   szTitle   As   String  
      Dim   tBrowseInfo   As   BrowseInfo  
      Dim   Ret   As   Long  
      szTitle   =   "This   is   the   title"  
      Dim   sPath   As   String  
      sPath   =   VBA.InputBox("初始路径:",   ,   "C:/program   files")  
      With   tBrowseInfo  
              .hWndOwner   =   Me.hWnd  
              .lpszTitle   =   lstrcat(szTitle,   "")  
              .ulFlags   =   BIF_RETURNONLYFSDIRS   +   BIF_DONTGOBELOWDOMAIN  
              .lpfnCallback   =   MyAddressOf(AddressOf   BrowseForFolders_CallbackProc)  
              Ret   =   LocalAlloc(LPTR,   VBA.Len(sPath)   +   1)  
              CopyMemory   ByVal   Ret,   ByVal   sPath,   VBA.Len(sPath)   +   1  
              .lParam   =   Ret  
      End   With  
      lpIDList   =   SHBrowseForFolder(tBrowseInfo)  
      If   (lpIDList)   Then  
          sBuffer   =   VBA.Space(MAX_PATH)  
          SHGetPathFromIDList   lpIDList,   sBuffer  
          sBuffer   =   VBA.Left(sBuffer,   VBA.InStr(sBuffer,   vbNullChar)   -   1)  
          MsgBox   sBuffer  
          End   If  
      End   Sub  
       
      'Module1:  
      Option   Explicit  
      Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hWnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long  
      Private   Const   WM_USER   =   &H400  
      Private   Const   BFFM_SETSELECTIONA   As   Long   =   (WM_USER   +   102)  
      Private   Const   BFFM_SETSELECTIONW   As   Long   =   (WM_USER   +   103)  
      Private   Const   BFFM_INITIALIZED   As   Long   =   1  
      Public   Function   BrowseForFolders_CallbackProc(ByVal   hWnd   As   Long,   ByVal   uMsg   As   Long,   ByVal   lParam   As   Long,   ByVal   lpData   As   Long)   As   Long  
      If   uMsg   =   BFFM_INITIALIZED   Then  
          SendMessage   hWnd,   BFFM_SETSELECTIONA,   True,   ByVal   lpData  
      End   If  
      End   Function

     

    展开全文
  • System.IO.Directory.GetFiles中的路径如果明确指定就可以,如果按照下面这种方法就不行,求大神指点 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Dim ...
  • 转自CSDN ''Invoke:funcSearchFile("e:\flash","*bb*cc*.*") ...'参数说明:dir路径名称,fileName待查找类似文件名称 PrivateFunctionfuncSearchFile(ByValdirAsString,ByValfileNameAsString...

    转自CSDN

        ''Invoke   :   funcSearchFile("e:\flash",   "*bb*cc*.*")   
        '参数说明:dir   路径名称,fileName   待查找类似文件名称   
        Private Function funcSearchFile(ByVal dir As StringByVal fileName As StringAs Boolean
            
    If Not dir.LastIndexOf("\"= dir.Length - 1 Then
                
    dir = dir & "\"
            
    End If
            
    Dim files() As String
            
    Try
                files 
    = System.IO.Directory.GetFiles(dir)
            
    Catch ex As Exception
                MessageBox.Show(ex.Message.ToString, 
    "出错信息")
                
    Return False
            
    End Try

            
    For Each s As String In files
                
    If funcCompareFileName(fileName, s, TrueThen
                    Console.WriteLine(s)
                
    End If
            
    Next
            
    Dim folders() As String
            folders 
    = System.IO.Directory.GetDirectories(dir)
            
    For Each s2 As String In folders
                funcSearchFile(s2, fileName)
            
    Next
        
    End Function

        
    Private Function funcCompareFileName(ByVal searchFile As StringByVal dirFile As StringByVal First As BooleanAs Boolean

            
    Dim searchFile2 As String = searchFile   '备份   
            Dim dirFile2 As String                                   '备份   
            dirFile2 = IIf(dirFile.IndexOf("\">= 0, dirFile.Substring(dirFile.LastIndexOf("\"+ 1), dirFile)

            
    ''全体文件   
            If searchFile2 = "*.*" Then
                
    Return True
            
    End If

            
    Dim kk As Integer
            
    Dim fileName As String
            
    Dim col As New Collection

            
    If searchFile2.IndexOf("*"> 0 Then
                fileName 
    = searchFile2
                
    If First Then   '是否是第一次比较该文件   
                    If fileName.Substring(0, fileName.IndexOf("*")) <> dirFile2.Substring(0, fileName.IndexOf("*")) Then
                        
    Return False
                    
    End If
                
    End If
                
    While fileName.IndexOf("*">= 0
                    kk 
    = dirFile.IndexOf(fileName.Substring(0, fileName.IndexOf("*")))
                    
    If kk >= 0 Then
                        
    If kk - searchFile.IndexOf("*">= -1 Then
                            fileName 
    = fileName.Substring(fileName.IndexOf("*"+ 1)
                            col.Add(kk)
                        
    Else
                            
    Return False
                        
    End If
                    
    Else
                        
    Return False
                    
    End If
                
    End While

                
    ''判断所有的匹配是否按升序排列   
                Dim i As Integer
                
    For i = 1 To col.Count
                    
    If i > 1 Then
                        
    If col(i) < col(i - 1Then
                            
    Return False
                        
    End If
                    
    End If
                
    Next
                
    Return True

            
    ElseIf searchFile2.IndexOf("*"= 0 Then
                
    Return funcCompareFileName(searchFile2.Substring(1, searchFile2.Length - 1), dirFile2, False)
            
    Else   '完整匹配文件名称   
                If searchFile2 = dirFile2 Then
                    
    Return True
                
    Else
                    
    Return False
                
    End If
            
    End If
        
    End Function

    转载于:https://www.cnblogs.com/lwl0606/archive/2009/03/02/1401608.html

    展开全文
  • VB编程中,我们如何删除一个指定的文件,或者文件夹呢?本文,介绍两种方法,详细的介绍如何实现删除文件和文件夹,并对两种方法的区别做一个说明。一、删除文件的方法方法1:使用kill方法删除文件语法:kill ...

    在VB编程中,我们如何删除一个指定的文件,或者文件夹呢?

    本文,介绍两种方法,详细的介绍如何实现删除文件和文件夹,并对两种方法的区别做一个说明。

    一、删除文件的方法

    方法1:

    使用kill方法删除文件

    语法:

    kill filename

    说明:filename为文件的路径

    方法2:

    使用DeleteFile方法删除文件

    语法:

        Dim fs As Object    Set fs = CreateObject("Scripting.FileSystemObject")    fs.DeleteFile filename

    说明:

    filename为文件的路径

    使用以上两种方法删除文件时,可以使用"*"和"?"通配符,以实现批量删除有一定规律的文件。

    例如:

    kill "E:\test\*.txt"

    上面这个代码可以删除E:\test文件夹下所有txt格式的文件。

    二、删除文件夹

    方法1:

    使用RmDir方法删除文件夹

    语法:

    RmDir folderName

    说明:

    folderName为文件夹路径

    方法2:

    使用deletefolder删除指定文件夹

        Dim fs As Object    Set fs = CreateObject("Scripting.FileSystemObject")    fs.deletefolder folderName

    说明:

    folderName为文件夹路径

    使用方法1和方法2来删除文件夹时的区别:

    在使用RmDir来删除文件夹时,只能删除一个空的文件夹,如果文件夹内有文件或者文件夹,则删除会出错。

    而使用deletefolder删除文件夹时,则不会存在上述问题。它将会连同文件夹内所有文件,全部删除。

    删除文件和文件夹时注意事项:

    当删除文件和文件夹时,如果文件处于打开或者文件名不正确时,删除可能会发生错误。此时可以使用on error go to语句来实现错误跳转。

    举例:

    通过以下这个例子,掌握删除文件和删除文件夹的方法,以及两种方法的区别。

    界面如下所示:

    6bc48baedb4834335d2ac6a75a71d15e.png

    代码如下所示:

    Option ExplicitDim str$Private Sub Form_Load()    '设置测试文件目录,请根据自己的文件位置修改    str = "C:\Users\Administrator\Desktop\新建文件夹"End Sub'用kill删除指定文件Private Sub Command1_Click()    '删除该目录下的test.txt文件    Kill str & "\新建文本文档.txt"End Sub'用kill删除所有文件Private Sub Command2_Click()    '删除该目录下所有文件    Kill str & "*.*"End Sub'用deletefile删除指定文件Private Sub Command3_Click()    Dim fs As Object    Set fs = CreateObject("Scripting.FileSystemObject")    fs.DeleteFile str & "\新建文本文档.txt"End Sub'用deletefile删除所有文件Private Sub Command4_Click()    Dim fs As Object    Set fs = CreateObject("Scripting.FileSystemObject")    fs.DeleteFile str & "\*.*"End Sub'用kill删除指定文件夹Private Sub Command5_Click()    RmDir str    '注意,此方法只能删除空的文件夹End Sub'用deletefolder删除文件夹Private Sub Command6_Click()    Dim fs As Object    Set fs = CreateObject("Scripting.FileSystemObject")    fs.deletefolder str    '注意,此方法可以删除非空文件夹End Sub

    运行程序,然后在相应的文件夹内放置文件或者文件夹,再点击各按钮测试,查看效果。

    展开全文
  • vb.net 实现删除文件夹指定文件 需求 :删除 ‘D:\VB’ 这个路径下面所有文件名包含"123"的"xml"类型文件 代码。例,VB_aaa123987.xml Dim path1 = "D:\VB\" Dim OriginalFilePath = New DirectoryInfo(path1) ...

    vb.net 实现删除文件夹内指定文件

    需求 :删除 ‘D:\VB’ 这个路径下面所有文件名包含"123"的"xml"类型文件
    代码。例,VB_aaa123987.xml

     Dim path1 = "D:\VB\"
     Dim OriginalFilePath = New DirectoryInfo(path1)
     Dim OriginalFilePathInfo As String
     '找到所有符合条件的文件,for循环遍历
     For Each file As FileInfo In OriginalFilePath.GetFiles("*123"  & "*.xml")
       OriginalFilePathInfo = path1 + file.ToString
       '删除符合条件的文件,例D:\VB\VB_aaa123987.xml
       My.Computer.FileSystem.DeleteFile(OriginalFilePathInfo)
     Next
    
    展开全文
  • VB 使用 Dir 函数遍历文件夹

    万次阅读 2012-05-31 15:19:30
    语法: Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分: 以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!...以下是VB帮助自带查...MyPath = "c:\" ' 指定路径。 MyName = Dir(MyPath, vb
  • 代码 FunctionSearchFiles(PathAsString,FileTypeAsString)OnErrorGoToErrMsgDimFiles()AsString'文件路径DimFolder()AsString'文件夹路径Dima,b,cAsLong...
  • 这个函数可以遍历指定一个目录下的...Private Function SearchFiles(Path As String, FileType As String)Dim Files() As String '文件路径Dim Folder() As String '文件夹路径Dim a, b, c As LongDim sPath As St...
  • 其思路是:调出浏览文件夹窗口让用户指定所要搜索的起始路径,然后用查找文件的API函数遍历该目录下及其包含的子目录下的所有文件。本例需要:一个按钮,一个TextBox和一个ListBox,其中,TextBox应设置为多行。核心...
  • VB 定时转移文件

    2008-06-24 11:23:42
    指定文件夹下的文件,剪贴到指定路径下。(支持网络连盘,自动连盘技术)
  • VB6 codesmart 出现问题解决

    千次阅读 2016-01-16 23:13:01
    它会在“我的文档”里面创建一个名叫“My CodeSMART Files”的文件夹,里面保存着错误日志,个人配置信息(Personal.mdb)和团队配置信息(Team.mdb),但是如果“我的文档”是中文名,VB在启动时CodeSmart就可能找...
  • 自动更换桌面壁纸的VB源代码实例,将图片拷贝到指定文件夹,在代码里设定路径,编译运行本程序,然后点击按钮,每点击一次,桌面壁纸就会自动更换一张,如果你是一位VB编程者,你就能很容易的再次扩展功能,开发一个...
  • 需要使用Excel类库工具Free Spire.XLS for .NET,可通过官网下载包,解压安装到指定路径,完成安装后,将安装路径下Bin文件夹下的Spire.Xls.dll文件添加引用到VS程序;或者可通过Nuget搜索下载。dll文件引用效果...
  • VB2008】读写文件

    2012-03-15 17:30:55
    第一个参数是文件名称(如果不包含路径就是在程序所在的文件夹里面)可以指定路径 第二个参数是字符(要写入文件的字符,可是是字符变量) 第三个参数是判断追加还是覆盖(True=追加在后面,False=覆盖掉原来部份)
  • 这是我用VB.NET写的一个备份数据库的软件 代码环境是visual basic 2003 ...3、另外在指定路径文件夹不存在时,如何自动生成; 4、当然如果可以,再帮我检测下BUG什么的,和提一些其他的建议,毕竟这东西不是很全面。
  • 需要使用Spire.XLS for .NET Pack hotfix 10.10.6,可通过E-iceblue中文官网下载10.10.6版本,如下:Spire.XLS for .NET | 下载​www.e-iceblue.cn下载后,解压到指定路径,完成解压后,将文件夹Bin下的Sp...
  • 指定文件夹路径 您可以指定一个可选的文件夹路径来搜索AssemblyInfo.cs或AssemblyInfo.vb文件。 默认值为$ {{github.workspace}} - name : Set version on AssemblyInfo.cs uses : dannevesdantas/set-version-...
  • 工具:Free Spire.PDF for .NET (免费版)下载地址及dll引用:下载并解压安装到本地指定路径,完成安装后,将安装路径下Bin文件夹下的Spire.Pdf.dll文件添加引用至VS程序。Free Spire.PDF for .NET | 下载​...
  • 需要使用Spire.XLS for .NET Pack hotfix 10.10.6,可通过E-iceblue中文官网下载10.10.6版本,如下:Spire.XLS for .NET | 下载​www.e-iceblue.cn下载后,解压到指定路径,完成解压后,将文件夹Bin下的Sp...
  • 工具:Free Spire.PDF for .NET (免费版)下载地址及dll引用:下载并解压安装到本地指定路径,完成安装后,将安装路径下Bin文件夹下的Spire.Pdf.dll文件添加引用至VS程序。Free Spire.PDF for .NET | 下载​...
  • 1.获取文件的路径和移动到文件夹信息 string fileName = ""; string sourceFile = @"F:\...2.获取文件夹下文件vb.net教程信息,并移动c#教程到Bak操作。 //匹配.csv的文件路径地址集合 string[] FullfillfilesList
  • (5KB) 78,kpini.ZIP ini文件操作的例子 (12KB) 79,copyfile.ZIP 拷贝文件的例子, 有拷贝操作的进度 (6KB) 80,listfiles.ZIP 在列表框中显示指定磁盘的所有文件, 文件名包含全路径名(10KB) ...
  • 对PDF文档中的内容进行查找时,可针对文档全篇内容获取查找结果,也可在PDF指定页面中的特定范围内(矩形框区域)进行查找,对获取的查找结果可执行文本高亮或替换等操作,本文将对此作相关介绍(附VB.NET代码,有...
  • 本文介绍通过C# 编程如何在PPT幻灯片中添加超链接的方法,添加链接时,可给文本或者图片添加超链接,链接对象可指向网页地址、邮件地址、指定幻灯片vb.net教程等,此外,也可以参考文中编辑、删除幻灯片中已有c#教程...
  • CSDN问答:网络下载相关

    千次阅读 2005-06-28 11:13:00
    我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定文件夹里,并能保持原来的类型不变.参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是...
  • dll文件包可通过官网下载导入(如果下载的是pack包,需要将Spire.Doc for .NET包解压安装到指定路径,dll文件vb.net教程可在安装路径下的Bin中找到;如果下载的是hotfix包,则无需安装,可直接c#教程在文件夹Bin下...
  • 摘要:NTFS是Microsoft公司开发的一种有着良好安全性和稳定性的高性能文件系统,NTFS的文件或文件夹中附加多个额外的数据流,但是其访问一直没有很好的解决办法,本文使用VB2003实现NTFS文件附加数据流的读写类,...
  • 实例143 从字符串中分离文件路径、文件名及其扩展名 实例144 进行文本加密与解密 实例145 对字符串进行加、减、乘、除计算 实例146 统计字符个数 实例147 实现字节数组和字符串的相互转换 实例148 用VB分离出...

空空如也

空空如也

1 2 3
收藏数 57
精华内容 22
关键字:

vb指定文件夹路径