精华内容
下载资源
问答
  • --------------------------------------------------------- '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹) Private Sub ShowFileList(folderspec) '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹) ...

    Private Sub Form_Load()
    Dim sB As String
    Dim sF As String
    Combo1.Clear
    sB = “c:”
    sF = Dir(sB, vbDirectory) '寻找第一项
    Do While sF <> “” '跳过当前的目录及上层目录
    If sF <> “.” And sF <> “…” Then
    If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then
    Combo1.AddItem sF '如果它是一个目录,将其名称添加到Combo1列表
    List1.AddItem sF
    End If
    End If
    sF = Dir '查找下一个目录
    Loop
    Combo1.ListIndex = 0 '选择第一项
    End Sub
    '----------------------------------------------------------
    '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)

    Private Sub ShowFileList(folderspec) '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)
    Dim fs, f, f1, s, fc
    List1.Clear
    Set fs = CreateObject(“Scripting.FileSystemObject”)
    Set f = fs.getfolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 In fc
    If InStr(f1.Name, “.”) = 0 Then
    List1.AddItem f1.Name
    End If
    Next
    End Sub
    '---------------------------------------------------------

    '获取一个目录里所有文件名(非文件夹名)
    Private Sub Form_Load()
    Dim fname As String,student As String,folderName As String
    folderName = “D:”
    fname = Dir(folderName & “*.txt”, 7)
    List1.Clear
    Do
    If fname = “” Then Exit Do
    List1.AddItem fname
    fname = Dir()
    Loop
    End Sub

    展开全文
  • 用cscript.exe来寻找和连接脚本的运行库,JScript。.bat文件格式,直接双击运行即可
  • 此过程能把指定文件夹下的文件名放入Sheet1的A列。 Public Sub findname() Dim fs, f, f1, fc, s Set fs = CreateObject ( " Scripting.FileSystemObject " ) Set f = fs.GetFolder( " d:\33 " ) ' ...
    dim FSO as Scripting.FileSystemObject
    dim fdrFolder as Scripting.Folder
    dim fdrSubFolder as Scripting.Folder
    
    Set FSO =New  Scripting.FileSystemObject
    ser  fdrFolder = FSO.GetFolder(strPath)
    
    For Each fdrSubFolder in fdrFolder.SubFolders
       Print fdrSubFolder.name
    next
    
    '----------------------------------------------------------------
    此过程能把指定文件夹下的文件名放入Sheet1的A列。
    Public Sub findname()
        Dim fs, f, f1, fc, s
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder("d:\33") '在括号内输入你指定的目录
        Set fc = f.Files
        
        i = 1
        For Each f1 In fc
            Sheet1.Cells(i, 1) = f1.Name
            i = i + 1
            s = s & f1.Name
            s = s & vbCrLf
        Next
    End Sub
    
    '--------------------------------------------------------
    Private Sub Form_Load()
    '引用Microsoft script runtime
    Dim f As File, fd As Folder
    Set fd = fso.GetFolder("c:\")
    For Each f In fd.Files
    Debug.Print f.Path
    Next
    
    End Sub

    转载于:https://www.cnblogs.com/ljg3020/archive/2012/11/12/2766098.html

    展开全文
  • VB编程:获取文件夹下所有文件-1

    千次阅读 2017-03-10 18:24:53
     '获取文件夹名称  Index = 0  sDir = Dir(sPath, vbDirectory)  Do While Len(sDir) 'sDir <> ""  If sDir <> "." And sDir <> ".." Then  If GetAttr(sPath & sDir) And vbDirectory Then  ...


    Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String) As Long
        DoEvents
        Static Files As Long
        Dim sDir As String
        Dim sSubDirs() As String
        Dim Index As Long
        Dim sFiles() As String
        
        If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
        '获取文件名和数目
        
        sDir = Dir(sPath & sFileSpec)
        
        Do While Len(sDir)
        
           Files = Files + 1
           ReDim Preserve sFiles(1 To Files)
           sFiles(Files) = sPath & sDir
           
           '显示到列表
           List1.AddItem sFiles(Files)
           List1.ListIndex = List1.ListCount - 1
           
           sDir = Dir
        Loop
        '获取文件夹名称
        Index = 0
        sDir = Dir(sPath, vbDirectory)
        Do While Len(sDir) 'sDir <> ""
            If sDir <> "." And sDir <> ".." Then
                If GetAttr(sPath & sDir) And vbDirectory Then
                    Index = Index + 1
                    ReDim Preserve sSubDirs(1 To Index)
                    sSubDirs(Index) = sPath & sDir & "\"
                End If
            End If
            sDir = Dir
        Loop
        '递归调用,获取子文件夹目录
        For Index = 1 To Index
            Call TreeSearch(sSubDirs(Index), sFileSpec)
        Next Index
        TreeSearch = Files
    End Function


    Private Sub Command1_Click()
        
        Print TreeSearch(Text1.Text, Combo1.Text)
        
    End Sub


    Private Sub Command2_Click()
        End
    End Sub


    'Private Sub Command3_Click()
    '    List1.Clear
    'End Sub


    Private Sub Form_Load()
        Text1.Text = "D:\vb小程序\vb实例"
        Dim spec As Variant
        spec = Array("*.*", "*.exe", "*.vbp")
        Combo1.Text = spec(0)
        For i = 0 To UBound(spec)
            Combo1.AddItem spec(i)
        Next i
    End Sub

    展开全文
  • 1. 前言今天在配置cppunit的附加... 处理思路我们这里想到了vb.net, 利用他的拖拽功能, 直接获取相应的文件名称3. 实现效果 4. 注意点 我们这里选用的是listview 控件, 顺手拖过来的 他的view 属性一定改为List,

    1. 前言

    今天在配置cppunit的附加依赖项的时候, 需要输入相应的附加依赖项的文件名, 这个很费劲, 我们又不想自己手工一个个的copy, 就希望能够找到一种方法可以直接获取到我们的文件名

    2. 处理思路

    我们这里想到了vb.net, 利用他的拖拽功能, 直接获取相应的文件名称

    3. 实现效果

    这里写图片描述
    这里写图片描述

    4. 注意点

    1. 我们这里选用的是listview 控件, 顺手拖过来的
    2. 他的view 属性一定改为List,这样文件名可以全部显示
    3. AllowDrop 属性改为True, 允许拖拽

    5. 代码

    Public Class Form1
        ' 拖拽进入, 清空数据
        Private Sub FileLists_DragEnter(sender As Object, e As DragEventArgs) Handles FileLists.DragEnter
            FileLists.Items.Clear()
            e.Effect = DragDropEffects.All
        End Sub
    
        ' 拖拽完成, 显示数据
        Private Sub FileLists_DragDrop(sender As Object, e As DragEventArgs) Handles FileLists.DragDrop
            Dim MyFiles() As String
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            For i = 0 To MyFiles.Count - 1
                Dim Items() As String
                Items = MyFiles(i).Split("\\")
                FileLists.Items.Add(Items(Items.Count - 1))
            Next
        End Sub
    
        ' 双击数据, 实现复制数据到剪切板, 另外注意换行使用 vbCrLf, C 中的 "\n" 不管用
        Private Sub FileLists_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles FileLists.MouseDoubleClick
            Dim strData As String
    
            strData = ""
            With FileLists
                For i = 0 To .Items.Count - 1
                    strData += .Items.Item(i).Text + vbCrLf
                Next
            End With
            Clipboard.SetDataObject(strData)
        End Sub
    End Class
    展开全文
  • ![图片说明]... 按下按钮1,获取 F:\text\目录里的任意一个文件的名字,然后名字显示到label1 新手,求大神给下简单代码,老师作业,就差这个代码 谢谢
  • 最近vb2005写了个WinCE的程序,需要采集器读取本机指定文件夹内的文件名,并通过文件名处理每个文件里的内容。 请各位高手指点一下,这个问题困扰我好几天了,一直找不到好的解决办法,再次谢过。 比较着急,有此类...
  • 主要介绍了C#编程实现获取文件夹中所有文件的文件名,可实现获取特定目录下制定类型文件名称的功能,涉及C#针对文件与目录的遍历、查询等操作相关技巧,具有一定参考借鉴价值,需要的朋友可以参考下
  • 通过excel文件,点击按钮通过资源管理器自动获取目标文件夹内的文件名,并进行修改
  • 爬取 ftp 中的文件(Python) test
  • 文件夹下所有文件名导出到Excel ,比较适合于财务人员使用,前提必需安装framework2.0
  • 通过VBA程序批量修改文件夹名称,需要列出旧文件夹、新文件夹
  • .Net System.IO 获取文件夹下所有子文件夹名及目录 //获取path下所有的文件夹 System.IO.DirectoryInfo dir = new System.IO.DirectoryInfo(path); System.IO.DirectoryInfo[] folders = dir.GetDirectories();...
  •  功能:选择某一个文件夹,想获取里面的文件的名称,或者只获取里面的文件夹名称,直接用这个程序。 VB.Net 2005,程序界面如:这里用到一个控件,用起来超级爽。都不用自己写什么就可以浏览电脑资源了。整个dll...
  • 提取文件夹所有文件名称小程序,可以搜集到文件夹里所有文档的名称信息。
  • 上例只筛选*.dwg的文件,你要是想要得到多有文件名<不含子文件夹>可以设为*.* 这样用File1.Tiem可得到那些文件名了。 法2 dos命令 其实dos命令 dir c:\*\*\*.dwg> list.txt 也可以 法3 用VB函数Dir实现...
  • 批量获取文件夹中的所有文件名

    千次阅读 2020-04-15 19:27:27
    批量获取文件夹中的所有文件名 一、内容 今天我接到了一个任务,需要将多个文件夹中的,多个文件的文件名全部都要统计出来。 我统计的是一堆js文件,每个js文件,会有对应的功能,但是有的js文件是没用或者用不到的...
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。   软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599 vb版本目录获取器 1.0(龙卷风出品) ...
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。 软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599vb版本目录获取器 1.0(龙卷风出品)说明:1.选好...
  • 定义变量A,当A等于1时,在指定目录下(如F:\VB TEST)找到按时间排序最后创建的的一个文件夹,并将文件夹定义为变量B,把文件夹名称显示到text1中。 2.定义变量C,当C等于1时,在指定目录下如F:\VB TEST查找到最新...
  • 计算机如何搭建FTP服务器参考https://jingyan.baidu.com/article/08b6a5916e885214a8092288.html 本程序参考链接:https://blog.csdn.net/dzweather/article/details/51429107
  • UIPath工具取得某个路径下的文件夹名称 处理的流程如下图 【Edit Code】按钮押下之后写入代码如下 Dim dir As New DirectoryInfo("C:\Users\peiqiang\Desktop\mailToExcelGrid_0.1") For Each d As ...
  • // 获取文件夹绝对路径 显示在 txtbox 控件里 System.Windows.Forms.FolderBrowserDialog folder = new System.Windows.Forms.FolderBrowserDialog(); if (folder.ShowDialog() == DialogResult.OK) { this....
  • VB.NET 查找某路径下最新文件夹和最新的TXT文件 任务:得到最新文件夹下的最新TXT中的字符串 Dim MyFullPath As String Dim MyFullPath1 As String '排序文件夹,找时间最新的  result_camera = "" '清空...
  • VB.Net>共享一个我写的快速获取文件夹/文件名称程序代码。 详细情况请看: http://blog.csdn.net/linjimu/archive/2008/07/04/2610437.aspx
  • 本次所讲的遍历获取文件夹下所有文件,其实是我的《每月自动汇总考勤数据》案例中的其中一个知识点,近期我将会集中将本案例中所有应用到的知识点逐一的写出来,最后汇总成一个真正可用的成品。 本案例中首要的...
  • Option Explicit'以竖式遍历先遍历某子目录及内部所有子目录,然后再返回与之同级的目录 Sub GetPath(ByVal FilePath As String, ByVal list As ListBox)    '获取文件路径  File
  • vb6根据路径获取文件名

    千次阅读 2019-05-10 16:35:35
    '获取路径,截取文件名' MsgBox Mid ( txtFilePath . Text , Len ( txtFilePath . Text ) - ( InStr ( 1 , StrReverse ( txtFilePath . Text ) , "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), ...
  • (包括名称) //例: c:/test/myapp.exe Application.StartupPath;(不包括名称) //例: c:/test/ 上面的几个试了下都不行 下面的有效 Dim app As String = Assembly.GetAssembly(GetType(Ents.class1)).Location Dim ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,255
精华内容 2,502
关键字:

vb获取文件夹名称