精华内容
下载资源
问答
  • VB6.0通用遍历所选文件夹及其多重子文件夹操作,直接使用Command按钮过程可以操作,无需其他额外控件。新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白文件(如不需要请...
  • --------------------------------------------------------- '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹) 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

    展开全文
  • 一个用VB写的小程序,可以用来提取某个文件下的所有文件的不带扩展名的文件名及文件名,并输出成文本,做论文等时可能有点用。
  • VB遍历读取文件夹中的所有JPG图片文件,程序运行后,会直接列出目录中所有的JPG文件,也就是不读取其它格式的文件,当点击列表中的图片文件时,右侧会预览显示该图片,在此基础上您可实现一款简单的图片浏览器,如...
  • 遍历指定文件夹下的所有文本夹,首先,获取所有的文件夹;其次,从找到的第一个文件开始,循环查找,直到没有文件为止,最后,将文件目录和文件名组合,并存放到数组中
  • 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
    展开全文
  • .Net System.IO 获取文件夹下所有文件夹名及目录 //获取path下所有的文件夹 System.IO.DirectoryInfo dir = new System.IO.DirectoryInfo(path); System.IO.DirectoryInfo[] folders = dir.GetDirectories();...

    .Net System.IO 获取文件夹下所有子文件夹名及目录

    			//获取path下所有的文件夹
                System.IO.DirectoryInfo dir = new System.IO.DirectoryInfo(path);
                System.IO.DirectoryInfo[] folders = dir.GetDirectories();
                //获取文件夹名
                string[] folderName = new string[folders.Length];
                string[] folderPath = new string[folders.Length];
                int leng = 0;
                foreach (System.IO.DirectoryInfo item in folders)
                {
                	//获取文件夹名
                    folderName[leng] = item.Name;
                    //获取子目录路径
                    folderPath[leng] = path + @"\" + item.Name;
                    leng++;
                }
                
                
    
    展开全文
  • ![图片说明]... 按下按钮1,获取 F:\text\目录里的任意一个文件的名字,然后名字显示到label1 新手,求大神给下简单代码,老师作业,就差这个代码 谢谢
  • 最近vb2005写了个WinCE的程序,需要采集器读取本机指定文件夹内的文件名,并通过文件名处理每个文件里的内容。 请各位高手指点一下,这个问题困扰我好几天了,一直找不到好的解决办法,再次谢过。 比较着急,有此类...
  • 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

    展开全文
  • 此过程能把指定文件夹下的文件名放入Sheet1的A列。 Public Sub findname() Dim fs, f, f1, fc, s Set fs = CreateObject ( " Scripting.FileSystemObject " ) Set f = fs.GetFolder( " d:\33 " ) ' ...
  • VB.net 想点击button获取选择文件夹的路径,并把路径存入文本框1中。网上搜的都是添加commondialog控件,可是我只看到有button,新手求解,谢谢!
  • 主要介绍了C#编程实现获取文件夹中所有文件的文件名,可实现获取特定目录下制定类型文件名称的功能,涉及C#针对文件与目录的遍历、查询等操作相关技巧,具有一定参考借鉴价值,需要的朋友可以参考下
  • 路径下所有文件及文件夹的遍历,特此总结下,以备以后使用。 同时,也希望对用得到的朋友有所帮助。先上代码给大家看看: Private Sub GetAllFiles(ByVal strDirect As String) '搜索所有目录下的文件 If ...
  • VBS代码,利用Wscript.Shell,可以自动读取当前文件夹名称的函数
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。   软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599 vb版本目录获取器 1.0(龙卷风出品) ...
  • vb程序,提取制定文件夹下的所有类型的文件名,倒入到电子表格
  •  功能:选择某一个文件夹,想获取里面的文件的名称,或者只获取里面的文件夹名称,直接用这个程序。 VB.Net 2005,程序界面如:这里用到一个控件,用起来超级爽。都不用自己写什么就可以浏览电脑资源了。整个dll...
  • 上例只筛选*.dwg的文件,你要是想要得到多有文件名<不含子文件夹>可以设为*.* 这样用File1.Tiem可得到那些文件名了。 法2 dos命令 其实dos命令 dir c:\*\*\*.dwg> list.txt 也可以 法3 用VB函数Dir实现...
  • 选择文件夹提取文件名 VB程序,可以获取无后缀文件名 也可以获取带后缀文件名 ,两种选择,供您选择——大吉利祝您工作愉快~~
  • win cmd 获取文件夹下所有文件的名称

    千次阅读 2018-08-07 18:36:27
    CMD命令如下 dir [drive:][path] /b&amp;gt; [drive:][path]filename 例如: dir *.xls /b &amp;gt; ls.txt //在当前目录下所有文件名为xls的名字输入到ls.txt文件名中
  • 定义变量A,当A等于1时,在指定目录下(如F:\VB TEST)找到按时间排序最后创建的的一个文件夹,并将文件夹定义为变量B,把文件夹名称显示到text1中。 2.定义变量C,当C等于1时,在指定目录下如F:\VB TEST查找到最新...
  • 获取文件路径,获取文件名,获取文件扩展名)自编 ★ 几行 VB 代码拿下注册表 ★ VB 在浏览器中打开指定网址 ★ VB 窗口置顶 ★ vb 在 ListBox 之中点击右键弹出菜单 更多精彩>>>
  • 'vb6 代码 '花了一个下午好不容易才套出来了 '这可不是一个一个设为visible=false '用循环代码使窗体所有控件设为visible=false '希望对你有所帮助 '网上搜都没有 'CH制作 '使所有已加载窗体所有控件visible=false '...
  • VB实现重命名、拷贝文件夹及文件

    千次阅读 2018-12-08 16:37:54
    '声明文件夹名和路径 Dim FileName, Path As String, EmptySheet As String Path = “D:\上报” FileName = Path &amp;amp;amp;amp; “\当期” EmptySheet = Path &amp;amp;amp;amp; “\空表” 'MsgBox...
  • =============================================名称: FindPath作用: 查找指定文件夹下面的所有文件和其目录下的文件参数:strPath 要查找的目录, strFiles 用于存查找结果的缓冲区,String 类型的动态数组,...
  • VB.NET获取Windows 7操作系统信息,本程序获取的内容比较多,主要有:显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、...
  • 该工具可以自动提取系统文件及文件夹名称到Word中,并形成表格
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。 软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599vb版本目录获取器 1.0(龙卷风出品)说明:1.选好...
  • Shell获取某目录下所有文件夹名称...Shell获取某目录下所有文件夹名称, 已知目录D:/temp,获取temp下所有文件夹名称并输出,Shell怎么写?方法有三,如下:#!/bin/bash#方法一dir=$(ls-lD:/temp/|awk'/^d/{p...

空空如也

空空如也

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

vb获取子文件夹名称