精华内容
下载资源
问答
  • 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查找指定路径的文件和目录列表

    千次阅读 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


    展开全文
  • vb6.0文件搜索查找程序实例,操作时选取文件夹所在的路径,选择文件所在范围,输入要查找的文件名进行搜索,调用SearchDirs函数查找文件,声明搜索文件要用到API函数和变量类型,递归调用Searchdirs自定义过程,实现...
  • 经过一段时间的查找终于找到了在vb.net中设置相对路径是Application.StartupPath &“文件夹/文件

    经过一段时间的查找终于找到了在vb.net中设置相对路径是Application.StartupPath &“文件夹/文件微笑

    展开全文
  • 转自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

    展开全文
  • Windows编程中,需要获取一个已打开窗口程序完整路径,以便下次用ShellExecute 函数直接打开。 能实现这一目标Windows API函数有3个: GetModuleFileName、GetProcessImageFileName 和...
  • VB工程源码是cScanPath 类示例程序,这个搜索类可以指定文件路径进行文件查找.程序具有真正全面过滤功能. 你可以按如下方式进行文件过滤:  按文件属性 (正常, 隐藏, 只读, 系统等)  文件大小 (>, 文件日期...
  • 查找网络计算机,并查找列出网络上共享的资源,查找网络服务器或工作站中的有效的...虽然也会返回一个有效的pidl,但SHGetPathFromIDList只返回一个有效的文件系统对象的路径,网络中的机器不是一个有效的文件系统对象
  • VB帮助文件MSDN绿色安装

    热门讨论 2009-03-08 15:01:28
    有些朋友如果需要安装MSDN原版文件,可以到网上自行查找下载。 如果出现无法打开问题,请先安装VB,问题还不能解决请尝试: 1、开始运行,输入:regsvr32 C:\windows\system32\hhctrl.ocx ,确定,重新关联...
  • Dir 快速全盘查找文件 Dir和Api扫描驱动器 Exe伪装天使 FreeActiveX Shell获取特殊文件 安全删除自己 比较两个文件是否相同 查找目录全部文件大小 查找文件 从全路径名中获得文件扩展名 从全路径名中提取文件名 二...
  • VB文件操作与Windows系统相关的42个源代码:小写金额转换为大写金额、判断驱动器属性、快速全盘文件查找、隐藏、显示桌面、获得Windows和System的路径、根据计算机信息生成序列号、可视化信封打英批量改变多层文件夹...
  • 路径函数、 文件函数、 颜色函数、 财政函数、判断函数、 系统函数、 格式化函数、 字符串函数、 时间日期函数、程序函数、图形函数 对象函数: CreateObject 创建并返回一个对ActiveX对象引用 .............
  • edeskvb2.zip 这是一个资源管理器的源代码,不用控件,全部由代码生成目录树和文件列表框(152KB) 100,find_file.zip 一个查找文件的源代码(2KB) 101,opentype.zip 创建自定义文件后缀名,并改变其...
  • 其思路是:调出浏览文件夹窗口让用户指定所要搜索的起始路径,然后用查找文件的API函数遍历该目录下及其包含的子目录下的所有文件。本例需要:一个按钮,一个TextBox和一个ListBox,其中,TextBox应设置为多行。核心...
  • MyReturn = WriteProcessMemory(MyRemoteProcessId, MyDllFileBuffer, DllFileName, MyDllFileLength, temp) ‘向刚才申请内存中写入dll文件路径字符串 ‘顺便说一下,很多api浏览器上api声明都是错,包括VB6...
  • 原因:由于VB6.0的Project/Reference中指定的库的路径不是系统变量导致vb环境找不到该库。 解决:将对应的库文件拷贝到system32目录并注册,或者将库所咋路径加到系统环境变量。查找命名空间在那个类库...
  • VB.net 中 Lambda 和 Linq 使用

    千次阅读 2014-02-18 13:53:40
    从一个文件夹中查找csv文件'获取路径信息 Dim dirInfo As New DirectoryInfo(bufferDataPath) '获取文件信息Dim files = dirInfo.GetFiles 'Linq Dim csvFiles= From item In files Where item.Extension = ".csv" ...
  • '循环查找当前路径所有XLS文件 Do '打开找到XLS文件 xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile) '循环复制源XLS文件工作表 nSheets = IIf(xlSrcBook.Sheets.Count , xlSrcBook.Sheets...
  • 这款实用音乐播放器是继v1.0版后升级版,在...5、播放模式,查找文件这些均可以实现 6、exe文件任何路径都可以运行(文件内附有快捷方式) 反正音乐播放器应该有功能一个不少(网络搜索功能除外) 使用前请解压!
  •  VB的Open语句打开文件,第1个字节位于1,而WinHex等十六进制编辑器第1个字节位于0  Private Sub MakeDirectory(strMainDir As String, strDirPath As String)  根据一个相对目录路径名,判断目录是否存在,不...
  • vb Script参考文档

    2009-07-28 22:13:02
    HelpFile 属性 设置或返回帮助文件的路径。 Hour 函数 返回小时数,取值范围为 0 至 23。 If...Then...Else 语句 根据表达式的值,有条件地执行一组语句。 IgnoreCase 属性 设置或返回 Boolean 值,指示模式...
  • vb 小词典下载

    2013-07-03 19:45:59
    chang = InStr(main, " ") '查找空格位子。 n = Microsoft.VisualBasic.Left(main, chang - 1) '截取空格字符:单词 Myword(i, 0) = n '保存新单词 ListBox1.Items.Add(n) stringchang = Len(main) - ...
  • 本DataGridView打印控件和.NET打印控件5.6版(含报表模板设计组件)2014年6月22日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以),有帮助文档与使用实例。 与上一版本5.5版...
  • Exception.zip 文件异常处理的一个例子<2030kb><END> 25,filefind.zip 在一个特定目录下查找文件的例子<1850kb><END> 26,AddBook.zip 利用文件存盘的地址本管理小程序<2040kb><END> 27,HexView....
  • 您是否曾为桌面太多快捷方式而烦恼,是否曾因为打开一个在复杂路径的文件,如:“D:\ProgramData\Backup\Electronic Arts\EADM”繁琐而反感。虽然我们可以用创建快捷方式来直接到达我们想要地址,但快捷方式太...
  • 客户提出一个项目,用VB实现对海康摄像头录像文件的播放,需要了解一下录像文件的查找: 1.录像文件可能通过nvr存储在硬盘中;也可能通过ipc摄像头直接存储...3.直接调用播放库类,然后选择录像文件的路径即可实现播放
  • 78.取得一个文件的路径 79.十进制转二进制 80.检查一个数组是否为空 81.字母栏名转数字栏名 82.数字栏名转文字栏名 83.判断一件活页夹中是否还有子目录 84.判断一个文件是否在使用中 85.列出档案详细摘要信息 86....
  • VC6上经典插件

    2013-08-27 17:35:10
    WndTabs主要是在编辑窗口中显示了所有已经打开的文件,在VC中能够更方便操作这些文件,比如修改文件属性,copy文件路径、文件名等,并且还开放源代码,你要是愿意话,可以添加自己很兴趣功能。 3. Line...

空空如也

空空如也

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

vb查找文件的路径