精华内容
下载资源
问答
  • VB查找文件(可搜索子文件夹)

    热门讨论 2011-07-02 18:22:51
    里面含VB查找文件的源代码,可搜索含子文件夹的地址。只要稍加修改便可以成为您的代码!而且含有代码解释和相关知识,帮助您快速掌握用VB查找文件的功能!
  • VB6.0通用遍历所选文件夹及其多重子文件夹操作,直接使用Command按钮过程可以操作,无需其他额外控件。新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白文件(如不需要请...
  • VB6.0编写一个小程序程序运行时1....2.定义变量C,当C等于1时,在指定目录下如F:\VB TEST查找到最新创建的TXT文档,并将文档中第2行第3列的数据定义为变量D,D显示到text2中。 感谢各位大佬帮助!
  • vb6.0文件搜索查找程序实例,操作时选取文件夹所在的路径,选择文件所在范围,输入要查找的文件名进行搜索,调用SearchDirs函数查找文件,声明搜索文件要用到API函数和变量类型,递归调用Searchdirs自定义过程,实现...
  • VB查找指定路径中的文件和目录列表

    千次阅读 2011-10-18 22:31:08
    PublicFunction funFindDirectory(ByVal strDir As String, Optional vMode As Long =vbDirectory) As Integer  Dim vFileNames As String  Dim

    PublicFunction funFindDirectory(ByVal strDir As String, Optional vMode As Long =vbDirectory) As Integer
       Dim vFileNames As String
       Dim vLoop As Integer
       Dim vFileAttr As FILEATTRIB
       
      varFileCount = 0
       varDirCount = 0
      
       On Error GoTo lopErr
       
      If strDir = "" Then
         strDir = varCurrentPath
       End If
       
      If Right(Trim(strDir), 1) <>"\" Then
           strDir = Trim(strDir) &"\"
       End If
       strDir = UCase(strDir)
       
      vFileNames = Dir(strDir, vMode)
       ReDim Preserve vFiles(11)
       ReDim Preserve vDirectories(11)
       Err.Clear
       Do While vFileNames <>""
           varCurrentPath = strDir
           If vFileNames <>"." And vFileNames<>".." Then
             If (GetAttr(strDir&vFileNames) And vbDirectory) = vbDirectory Then
               If varDirCount Mod10 = 0 Then
                  ReDimPreserve vDirectories(varDirCount + 10)
                  DoEvents
               End If
               funGetFileAttribstrDir &vFileNames, vDirectories(varDirCount)
               varDirCount =varDirCount + 1
             Else
               If varFileCountMod 10 = 0 Then
                  ReDimPreserve vFiles(varFileCount + 10)
                  DoEvents
               End If
               funGetFileAttribstrDir &vFileNames, vFiles(varFileCount)
               varFileCount =varFileCount + 1
             End If
           End If
    lopErr:
           vFileNames = Dir(, vbAlias)
       Loop
       funQuickSortFile vDirectories(), 0, varDirCount - 1
       funQuickSortFile vFiles(), 0, varFileCount - 1
       Exit Function
       'vErrorMessage = "File Not Found."
    End Function


    展开全文
  • VB 判断文件是否存在

    2010-04-26 12:33:59
    VB 判断文件是否存在 VB判断文件是否存在?在输入框内输入一个不存在的文件名,以便更容易查看出程序是否可用,另外除了判断文件存在的功能外,它还可以不进和行错误处理、进行错误处理、集中化错误处理以及模拟一个...
  • vb6根据路径获取文件名

    千次阅读 2019-05-10 16:35:35
    '# txtFilePath : 控件名' '过程' Len(txtFilePath.Text) '取字符串总长度' StrReverse txtFilePath.Text '反转字符串' InStr 1, "ABCDE", "A" '从规定位置开始,从前往后查找,查...
    '# txtFilePath : 控件名'
    '过程'
    Len(txtFilePath.Text)                         '取字符串总长度'
    StrReverse txtFilePath.Text                   '反转字符串'
    InStr 1, "ABCDE", "A"                         '从规定位置开始,从前往后查找,查找第一个出现在的位置'
    InStr 1, StrReverse(txtFilePath.Text), "\"    '反转字符串后查找第一个 \ 出现的位置'
    
    MsgBox "总长度:" & Len(txtFilePath.Text) & vbCrLf & _
        "翻转查找\位置:" & InStr(1, StrReverse(txtFilePath.Text), "\") & vbCrLf & _
        "反取字符串::" & Mid(txtFilePath.Text, Len(txtFilePath.Text), (InStr(1, StrReverse(txtFilePath.Text), "\"))) & vbCrLf & _
        "计算开始位置:" & Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) & vbCrLf & _
        "计算长度:" & (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & vbCrLf & _
        "正取字符串:" & Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1)
        
    '开始位置,数额越加越低,大值 - 小值'
    MsgBox Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) 
    
     '长度'
    MsgBox (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1
    
    '获取路径,截取文件名'
    MsgBox Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1) 
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '结果'
    Mid( & _
        txtFilePath.Text, & _
        Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), & _
        (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & _
    ) 
    '需要截取的字符串'
    '字符串开始的位置'
    '需要截取的长度'
    
    
    展开全文
  • VB.NET 查找路径下最新文件夹和最新的TXT文件 任务:得到最新文件夹下的最新TXT中的字符串 Dim MyFullPath As String Dim MyFullPath1 As String '排序文件夹,找时间最新的  result_camera = "" '清空...

    VB.NET 查找某路径下最新文件夹和最新的TXT文件

    任务:得到最新文件夹下的最新TXT中的字符串

    Dim MyFullPath As String

    Dim MyFullPath1 As String

    '排序文件夹,找时间最新的

     result_camera = "" '清空结果字符串

     MyFullPath = "D:\fluke17bnew\device_2013716\history"

    ‘查找history问价夹下的最新文件夹

      Dimdir As NewIO.DirectoryInfo(MyFullPath)

      DimNameList1 As List(OfString) = NewList(Of String)()

      DimCreateTimeList1 As List(Of System.DateTime) = New List(Of System.DateTime)()

       ForEach d AsIO.DirectoryInfo In dir.GetDirectories

       NameList1.Add(d.FullName)

       CreateTimeList1.Add(d.CreationTime)

       Next

     

       DimfileName1 As String()= NameList1.ToArray()

       DimfileCreageTime1 As System.DateTime() =CreateTimeList1.ToArray()

       Array.Sort(fileCreageTime1, fileName1)

        'MessageBox.Show("目录下最后一个建立的文件名称为:" + fileName1(fileName1.Length - 1) + vbCrLf + "建立时间为:" + fileCreageTime1(fileCreageTime1.Length - 1).ToString())

     'MsgBox(fileName1(fileName1.Length- 1))

     

     '排序文本文件,找时间最新的

     MyFullPath1 =fileName1(fileName1.Length - 1)

     Dimdi As DirectoryInfo = NewDirectoryInfo(MyFullPath1)

     Dimlist As List(OfFileInfo) = New List(OfFileInfo)(di.GetFiles())

      DimfileNameList As List(OfString) = NewList(Of String)()

      DimfileCreateTimeList As List(Of System.DateTime) = NewList(Of System.DateTime)()

      ForEach fi AsFileInfo In list

       fileNameList.Add(fi.Name)

       fileCreateTimeList.Add(fi.CreationTime)

      Next

     

      DimfileName As String()= fileNameList.ToArray()

      DimfileCreageTime As System.DateTime() =fileCreateTimeList.ToArray()

       Array.Sort(fileCreageTime,fileName)

       Dimfnn As Integer

      Dimaddr As String

     

      fnn = FreeFile()

      addr = MyFullPath1 & "\" & fileName(fileName.Length - 1)

       'DimOpF As New IO.FileStream(addr, IO.FileMode.Open)

       FileOpen(fnn, addr,OpenMode.Input)

      Input(fnn, result_camera)

      'OpF.Close()

       FileClose(fnn)

      MsgBox(result_camera)'str就是最后的结果

     

    展开全文
  • 文件属性查看修改,VB代码,可获得比较全面的文件属性信息,比如获得文件的创建和修改时间、获得和设置文件属性,比如存档、系统、只读、隐藏、压缩、路径、临时、常规等。
  • 文摘: 文件中特定字符串的寻找与替换是一种...针对这一问题,笔者用Visual Basic 5.0编制了一个小程序,使用它可以快速地完成在多个文件查找与替换的任务。 正文: 众所周知,文本文件中特定字符串的寻找与...
    文摘:
      文件中特定字符串的寻找与替换是一种极其常见的操作,在Win95中,可以很容易地使用"写字板"、"Word"等软件的"替换"功能在某个文件中完成寻找替换的工作,而如果要在多个文件中进行寻找替换,则需费一翻精力。针对这一问题,笔者用Visual Basic 5.0编制了一个小程序,使用它可以快速地完成在多个文件中查找与替换的任务。

    正文:
      众所周知,文本文件中特定字符串的寻找与替换是一种极其常见的操作,在Win95中,可以很容易地使用"写字板"、"Word"等软件的"替换"功能在某个文件中完成寻找替换的工作,可是如果想在很多文件中查找某个字符串并进行替换就不是一件轻松的事情了,如果你没有足够的耐心,恐怕是无法完成这个工作的。而在平时的学习工作中又经常会遇到需要在多个文件中进行寻找替换的情况,特别是从Internet上大量下载网页后,经常要对下载的页面做一些简单的批量修改,如将太小的字体变大、将刺眼的背景色变成柔和的利于常时间浏览的颜色等。

      针对这一问题,笔者用Visual Basic 5.0编制了一个小程序,使用它可以快速地完成在多个文件中查找与替换的任务。

    一、关键技术说明
    为完成上述任务,主要有下面两个问题需要解决:

    1、如何在一个文件中进行字符串的查找与替换;
      解决这个问题的基本思路是将要处理的文件读入内存,对文件进行扫描,找出匹配的字符串,然后进行替换。这一工作我们可以借助于RichTextBox控件来完成。
    首先使用RichTextBox控件的LoadFile方法将文件读入文本框,然后用Find方法在 RichTextBox 控件中搜索给定的字符串,在找到匹配的字符串后,可以通过设定SelStart、SelLength属性选中搜索文本,最后将替换字符串赋值给SelText,这样就完成了一次寻找替换的任务。重复上述过程,即可将文件中所有匹配的字符串替换掉。

    2、如何处理多个文件
      在VB中有多种方法可以用来获取文件名列表,如使用FileListBox控件、CommonDialog控件或使用OLE拖动,这里我们采用CommonDialog控件来实现。

      在使用CommonDialog控件之前,首先要进行一些设置工作:将Flags属性设定为 cdlOFNAllowMultiselect,即允许选择多个文件;根据具体需要设置Filter属性来决定"打开文件"对话框允许显示的文件类型;给MaxFileSize属性赋予较大的值,以便FileName属性可容纳较多的文件名。设置完成后调用ShowOpen即可显示"打开文件"对话框让用户选择文件,在对话完毕后检查FileName属性以获取选中的文件名。
    需要注意的是,CommonDialog控件将用户选中的所有文件名都保存在FileName这个简单字符型属性中,文件名之间用空格分开,因此在进行替换处理之前必须首先用程序将每个文件名取出。

    二、程序实例
    1、窗体布局
      新建一个工程,在Form1上放置两个命令按钮cmdChooseFiles、cmdOk,Caption属性分别为"选择文件"和"开始寻找替换";放置两个标签,Caption分别为"搜索字符串"和"替换字符串";放置两个文本框txtSearch和txtReplace;放置一个RichTextBox控件和一个CommonDialog控件,控件名取缺省名即可。窗体布局如下图:

    2、程序代码
    为Form1添加如下代码:
    Dim FileNames() As String '文件名列表数组,下标从1开始
    Dim FileCount As Long '文件名列表中的文件名总数
    Private Sub cmdChooseFiles_Click()
    Dim i As Long,y As Long,Dim z As Long
    With CommonDialog1
    .Flags = cdlOFNAllowMultiselect '允许选择多个文件
    .Filter = "HTM Files|*.HTM" '只显示HTM文件,可根据需要改变
    .MaxFileSize = 10000 'FileName属性的最大长度,可根据需要改变
    .ShowOpen '显示"打开文件"对话框
    If .filename = "" Then
    '如选择了"取消"按钮,则将FileCount置为0并返回
    FileCount = 0
    Exit Sub
    End If
    .filename = .filename & " " '在FileName最后添加一个空格,以便处理
    '以下从FileName属性中逐个读取文件名,并放入FileNames数组中
    z = 1
    y = 0
    For i = 1 To Len(.filename)
    i = InStr(z, .filename, " ")
    If i = 0 Then
    Exit For
    End If
    ReDim Preserve FileNames(y)
    FileNames(y) = Mid(.filename, z, i - z)
    If y > 0 Then '如有多个文件,则在每个文件名前加上完整的路径
    FileNames(y) = FileNames(0) & "\" & FileNames(y)
    End If
    z = i + 1
    y = y + 1
    Next i
    If y = 1 Then '如FileName只包含一个文件名,则将其赋给FileName(1)
    '并将FileCount置为1
    ReDim Preserve FileNames(1)
    FileNames(1) = FileNames(0)
    FileCount = 1
    Else '否则根据文件数确定FileCount的值
    FileCount = y - 1
    End If
    End With
    End Sub
    Private Sub cmdOk_Click()
    Dim i As Long
    Dim SearchString As String '搜索字符串
    Dim ReplaceString As String '替换字符串
    Dim StartPosition As Long '搜索字符串在文件中出现的位置
    Dim SearchLength As Long '搜索字符串长度
    SearchString = Trim(txtSearch)
    ReplaceString = Trim(txtReplace)
    SearchLength = Len(SearchString)
    With RichTextBox1
    For i = 1 To FileCount '以下依次处理FileNames数组中的文件
    RichTextBox1.LoadFile FileNames(i), rtfText '读入文件
    StartPosition = .Find(SearchString) '寻找搜索字符串
    If StartPosition <> -1 Then '如果找到,则执行替换操作
    .SelStart = StartPosition
    .SelLength = SearchLength
    .SelText = ReplaceString
    .SaveFile FileNames(i), rtfText '写入文件
    End If
    Next i
    End With
    MsgBox "转换结束!", vbExclamation
    End Sub
    3、程序说明
    (1)运行程序后,单击"选择文件"按钮选择文件,并分别输入搜索和替换字符串,然后单击"开始寻找替换"按钮,即可自动进行工作。
    (2)由于篇幅有限,程序没有进行任何错误处理,实际使用前,应加入必要的错误处理代码,如:在未选中文件前、未输入搜索和替换字符串前使"开始寻找替换"按钮失效;在某个文件中没有找到搜索字符串时给予提示并跳过该文件等。
    (3)可在程序中加入进度指示条(可使用ProgressBar控件),使界面更加友好。
    (4)程序对每个文件仅替换第一个匹配的字符串,如需要替换所有匹配的字符串,只需加入简单几句代码即可实现。
    (5)本程序用Visual Basic 5.0编写,在Pwin95、Pwin97环境下运行正常。

    转载于:https://www.cnblogs.com/applelover/articles/1140837.html

    展开全文
  • 判断打开的文件,并显示其路径程序(VB6.0源代码编写) 判断打开的文件,并显示其路径VB6.0源代码
  • VB遍历指定文件夹内所有文件,希望对您有用!
  • VB 窗体实现文件拖拽获取路径方法

    千次阅读 2012-07-28 18:16:41
     For i = 1 To Data.Files.Count '逐个读取文件路径  Debug.Print Data.Files(i)  Next End Sub 摘自:网络整理 ★ V B 部 分 相关 文 章 推 荐 : ★ ☆ VB6 中善用 ByRef 提升速度 ☆ [vb] Set...
  • VB工程源码是cScanPath 类的示例程序,这个搜索类可以指定文件路径进行文件查找.程序具有真正全面的过滤功能. 你可以按如下方式进行文件过滤:  按文件属性 (正常, 隐藏, 只读, 系统等)  文件大小 (>, 文件日期...
  • 代码 FunctionSearchFiles(PathAsString,FileTypeAsString)OnErrorGoToErrMsgDimFiles()AsString'文件路径DimFolder()AsString'文件夹路径Dima,b,cAsLong...
  • EJB中JNDI的使用源码例子 1个目标文件,JNDI的使用例子,有源代码,可以下载参考,JNDI的使用,初始化Context,它是连接JNDI树的起始点,查找你要的对象,打印找到的对象,关闭Context…… ftp文件传输 2个目标文件...
  • '====================获取路径名各部分: 如: c:\dir1001\aaa.txt '============获取路径路径 c:\dir1001\ '============获取路径路径 c:\dir1001\Public Function GetFileName(FilePathFileName As String) As ...
  • 纯代码查找文件夹下所有文件,包含子文件夹
  • VB如何获取所文件路径

    千次阅读 2007-09-13 09:13:00
    VB如何获取所选路径?首先在部件里勾上Microsoft Common Dialog Control6.0(sp3) 然后在窗体上添加CommonDialog1控件````` priavte sub command1_click() CommonDialog1.showopen text1.text=CommonDialog1.filenam
  • 路径下所有文件及文件夹的遍历,特此总结下,以备以后使用。 同时,也希望对用得到的朋友有所帮助。先上代码给大家看看: Private Sub GetAllFiles(ByVal strDirect As String) '搜索所有目录下的文件 If ...
  • (获取文件路径,获取文件名,获取文件扩展名)自编 ★ 几行 VB 代码拿下注册表 ★ VB 在浏览器中打开指定网址 ★ VB 窗口置顶 ★ vb 在 ListBox 之中点击右键弹出菜单 更多精彩>>>
  • 摘要:VB源码,文件操作,查找文件 VisualBasic6快速全盘查找文件源代码实例下载,选取文件夹所在的路径,调用函数查找文件,程序运行截图如上所示。
  • 在程序运行时将数据存入到一个txt文件中,假设这个文件叫1号,然后点击Button1 按钮,获取1号的绝对路径,然后将该路径写入到2号txt文件中保存。希望大神能指教。以前只学过简单vb。没有vb.net 基础,希望代码能最...
  • Windows编程中,需要获取一个已打开窗口程序的完整路径,以便下次用ShellExecute 函数直接打开。 能实现这一目标的Windows API函数有3个: GetModuleFileName、GetProcessImageFileName 和...
  • 文件系统全家福 AddadString Dir 快速全盘查找文件 Dir和Api扫描驱动器 Exe伪装天使 FreeActiveX Shell获取特殊文件 安全的删除自己 比较两个文件是否相同 查找目录全部文件大小 ...自动识别文件路径读取相应内容
  • 小眼文件快速搜索器,VB源码下载,可以在用户设置的路径里快速搜索符合条件的文件,包括关键字查找,而且支持Windows通配(*代表任意长度的任意字符,?代表一个任意字符)。搜索后可以打开文件位置,并可进行二次...
  • 内容索引:VB源码,系统相关,文件操作,键盘 VB文件操作与Windows系统源码合辑:小写金额转换为大写金额、判断驱动器属性、快速全盘文件查找、隐藏、显示桌面、获得Windows和System的路径、根据计算机信息生成序列号、...
  • vb.net 对文本文件的操作

    千次阅读 2019-01-01 16:07:48
    '引入命名空间 Imports System.IO Imports System.Text ...对文本文件的全部读取&lt;/summary&gt; Public Function TxtReader(ByVal Parth As String) As String() Dim StrReader As String = vbNull ...
  • =============================================名称: FindPath作用: 查找指定文件夹下面的所有文件和其子目录下的文件参数:strPath 要查找的目录, strFiles 用于存查找结果的缓冲区,String 类型的动态数组,...
  • 项目中涉及到一个需要检测路径中是否含有 ECE 开头的文件名的文件是否存在 文件基本是以 ECE-1.txt 这样的形式命名的 这里不能使用io.file.exists(" ")的方法来实现 这里给出解决方案 d = Dir("d:\ECE*.txt") If d...

空空如也

空空如也

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

vb查找文件的路径