• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS怎么获取指定目录下的文件列表

    VBS肿么获取某目录下的文件列表

    dim FileName,fs,foldername
    foldername = InputBox("请输入想要在哪个文件夹查找", "VBS查找文件")
    If foldername = "" Then
    wscript.quit
    End If
    Set fs = CreateObject("scripting.filesystemobject")
    digui (foldername)'调用递归函数进行查找
    msgbox FileName '结果显示
    
    '下面是递归查找函数
    Function digui(path)
    Set folder = fs.getfolder(path)
    Set subfolders = folder.subfolders
    Set Files = folder.Files
    For Each i In Files
    FileName=FileName  i.path  vbNewLine '找到则追加到变量FileName中
    Next
    For Each j In subfolders
    digui (j.path) '递归查找子目录
    Next
    End Function

    '目录列表与上述相似,稍加修改即可。

    vbs获取目录下的文件和文件夹集合

    Dim sFolder, sExt, message
    sFolder = "F:\Programming\Applications\VBScript"
     
    Dim fs, oFolder, oFiles, oSubFolders
    set fs = CreateObject("Scripting.FileSystemObject")
    set oFolder = fs.GetFolder(sFolder)   '获取文件夹
    set oSubFolders = oFolder.SubFolders  '获取子目录集合
     
    for each folder in oSubFolders
      message = "文件夹:"  folder
      MsgBox message
    Next
     
    set oFiles = oFolder.Files       '获取文件集合
    for each file in oFiles
      sExt = fs.GetExtensionName(file)  '获取文件扩展名
      sExt = LCase(sExt)         '转换成小写
      message = "文件名:"  file.Name  ", 扩展名:"  sExt '获得文件名(含扩展名,不含路径)和扩展名
      MsgBox message
    Next

    充,上面的folder.Name可以得到文件夹的名称(不含路径)
    如:folder = F:\Programming\Applications\VBScript\dd
    通过folder.Name可以得到"dd"

    批量统计子目录文件数量

    @echo offsetlocal enabledelayedexpansion
    cd.>dirfiles.txt
    for /d %%a in (*.*) do (
    set n=0
    for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1
    echo %%a  !n! >>dirfiles.txt
    )

    具体的大家可以凑凑

    上一篇:vbs定期监控 值个班,定期瞄一下
    下一篇:运行vbs脚本报错无效字符、中文乱码的解决方法(编码问题)
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS怎么获取指定目录下的文件列表 VBS,怎么,获取,指定,目,录下,