博客访问： 220048
博文数量： 93
博客积分： 2919
博客等级： 少校
技术积分： 981
注册时间：
好懒，什么都没写
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
分类： Python/Ruby
获取指定目录及其子目录全部文件的文件名，修改时间，版本号码等信息。注意，本处理只能处理EXE/DLL文件的版本号码，JAR等文件的版本号码暂不能获取。该方法使用 dir 命令来获取文件列表，然后逐个文件循环处理。&&& dir /a-d /b /s重要的是，批处理貌似不能获取EXE/DLL等文件的版本号码，所以这部分是由VBScript来完成的。VBScript代码set objArgs=WSCRIPT.Arguments
Set objFSO = CreateObject("Scripting.FileSystemObject")
Wscript.Echo objFSO.GetFileVersion(objArgs(0))批处理代码REM
"setlocal enabledelayedexpansion" is very important w
setlocal enabledelayedexpansion
REM To get errorlevel correctly, we need delay expansion
set made=YeChao& set title=FileList Generator
title %title% %made% %date% %time:~0,8%
REM mode con: cols=80 lines=50 & color 0A
REM mode con: cols=80 lines=30
REM set yy=2011& set mm=03& set dd=25
set pnum=2
echo. **********************************************************
echo. Function:%title%
echo. Made by:%made% %yy% Year %mm% Month %dd% Day
echo. Generating File List
echo. **********************************************************
ping /n %pnum% 127.1 > nul
REM color 70
::ping /n %pnum% 127.1 > nul
if exist YeChao_FileList.csv
YeChao_FileList.csv
REM set folder=D:\IOFollow\YeChao\MyTestBat\EXEFile
REM set folder=D:\YeChao\std\1.3.9.1\Release\REzInst1391
echo Please input file name or folder:
set /p folder=
set strFolder=%folder%
set /a a+=1
if not "!strFolder:~%a%,1!" equ "" goto :loopLen
set /a a+=1
echo CurrentDir:%~dp0
echo WorkingDir:%folder%
echo CurrentDir len is %a%
echo Please wait...
echo RelativePathname,FileName,ModifiedTime,FileVersion,Size(Byte) >>YeChao_FileList.csv
for /f "delims=""" %%i in ('dir /a-d /b /s %folder% 2^>nul') do (
for /f "tokens=1,2" %%j in ('dir /a /tc "%%i" ^| findstr "%%~nxi"') do (
if not "%%j"=="Directory"
REM Because subfolder's file maybe duplicated,check it before output it
echo %%~nxi|findstr "exe\>" >nul 2>nul
set relativepath=%%~dpi
set relativepath=!relativepath:~%a%!
set curfile=!relativepath!%%~nxi
REM Absolute path
is %%~dpi%%~nxi
if !errorlevel! equ 0 (
for /f "delims=" %%k in ('cscript //nologo getFileVerStr.vbs
%%i') do ( echo !curfile!,%%~nxi,%%~ti,%%k,%%~zi>>YeChao_FileList.csv )
echo filetype:exe
echo %%~nxi|findstr "dll\>" >nul 2>nul
REM echo errorlevel = !errorlevel!
if !errorlevel! equ 0 (
echo filetype:dll
for /f "delims=" %%m in ('cscript //nologo getFileVerStr.vbs
%%i') do ( echo !curfile!,%%~nxi,%%~ti,%%m,%%~zi>>YeChao_FileList.csv )
echo filetype:general
echo !curfile!,%%~nxi,%%~ti,,%%~zi>>YeChao_FileList.csv
REM for /f "delims=, "
%%k not in (*.exe)
do ( echo %%~nxi,%%~dpi%%~nxi,%%~ti,
,%%~zi>>YeChao_FileList.csv )
REM for /f "delims=" %%k in (' echo
%%i | findstr .exe ') do ( echo %%~nxi,%%~dpi%%~nxi,%%~ti,%%j,%%~zi>>YeChao_FileList.csv )
REM for /f "delims=" %%j in ('cscript //nologo getFileVerStr.vbs
%%i') do ( echo %%~dpi%%~nxi,%%~nxi,%%~ti,%%j,%%~zi>>YeChao_FileList.csv )
REM set strVer = GetFileVersion.vbs
"%%j"=="Directory"
echo Directory:%%i
REM echo.>>YeChao_FileList.csv
REM echo File name:%%~nxi,%%~zi,%%~dpi,%%j %%k,%%~ti>>YeChao_FileList.csv
REM echo Size:%%~zi Byte>>YeChao_FileList.csv
REM echo Path:%%~dpi>>YeChao_FileList.csv
REM echo Create time:%%j %%k>>YeChao_FileList.csv
REM echo Modify time:%%~ti>>YeChao_FileList.csv
REM echo %%~nxi,%%~dpi%%~nxi,%%~zi,%%~ti>>YeChao_FileList.csv
echo Finished!!!&&&
REM ping /n %pnum% 127.1 > nul
REM start YeChao_FileList.csv
阅读(1816) | 评论(0) | 转发(0) |
相关热门文章
给主人留下些什么吧！~~
请登录后评论。您的位置：
本文网址：
栏目分类??????????????????????????????????特别关注热门排行推荐信息相关信息
页面执行时间1.4531秒 查询数据库92次查看: 7671|回复: 7
如何获取某目录（包括子目录）所有文件并记录每个文件的路径和名称（含拓展名）？
阅读权限150
在线时间 小时
结帖率： (11/11)
是这样的啊，我这硬盘有很多的东西，有时候重要的文件都找不到了，我这不寻思有没有办法能获取到一个目录（或整个盘符）里面的所有文件并生成一个路径和文件名的记录（然后我只需要Ctrl+F就可以大概的搜一下有木有我的文件了），文件路径+文件名+拓展名，如果还能用记事本打开每个文件 搜索里面的内容 就更完美了。（当然，EXE INI 这种的需要跳过。。）
补充内容 ( 16:19):
=.=你们都知道命令，但是我需要的是完成我上面描述的效果，光靠一个命令我就给你们最佳，有刷荣誉的嫌疑啊！你们谁给做个例程我就采纳谁吧，就当给你们温习模块使用方法了。
最佳吧！！！
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限90
在线时间 小时
签到天数: 1 天结帖率： (3/3)
最佳吧！！！
16:38 上传
点击文件名下载附件
1.76 KB, 下载次数: 923
热心帮助他人，荣誉+1，希望继续努力(*^__^*) 嘻嘻!
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (0/1)
精易模块 文件_搜索（）
文件_枚举()
补充内容 ( 16:15):
文件_搜索 (&欲寻找的目录[文本型]&, &文件类型[文本型]&, &文件名包含的关键字[文本型]&, &显示标签[标签]&, &加入的列表框[列表框]&, &是否带路径[逻辑型]&)
您可以选择打赏方式支持他
阅读权限50
在线时间 小时
结帖率： (17/28)
系统自带搜索可以达到你的要求。。嘿嘿
您可以选择打赏方式支持他
阅读权限150
在线时间 小时
结帖率： (11/11)
精易模块 文件_搜索（）
文件_枚举()
好久没来论坛了 精易模块这么强大了啊！
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (0/1)
好久没来论坛了 精易模块这么强大了啊！
只有你想不到。没有做不到
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (5/5)
沙发正解。
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
签到天数: 1 天结帖率： (5/5)
(124.51 KB, 下载次数: 114)
18:09 上传
点击文件名下载附件
这里面有如何获取的代码
您可以选择打赏方式支持他
精易论坛 - 有你更精彩 /1
由资深js攻城狮辅导指点你，让你熟悉JS加解密架构，剖析你即将或已经碰上的坑，解密一切JS。。
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：@
Powered by
粤公网安备 2514157人阅读
Excel/VBA（3）
VB6.0（4）
&strong&VBA获取某文件夹下所有文件，或子文件目录的文件&/strong&
'-------------------------------------------
'获取某文件夹下的所有Excel文件
'-------------------------------------------
Sub getExcelFile(sFolderPath As String)
On Error Resume Next
Dim f As String
Dim file() As String
ReDim file(1)
file(1) = sFolderPath & &\&
f = Dir(file(1) & &*.xlsx&)
'通配符*.*表示所有文件，*.xlsx Excel文件
Do Until f = &&
'Range(&a& & x) = f
Range(&a& & x).Hyperlinks.Add Anchor:=Range(&a& & x), Address:=file(i) & f, TextToDisplay:=f
'-------------------------------------------
'获取某文件夹下的所有文件和子目录下的文件
'-------------------------------------------
Sub getAllFile(sFolderPath As String)
'Columns(1).Delete
On Error Resume Next
Dim f As String
Dim file() As String
Dim i, k, x
ReDim file(1 To i)
file(1) = sFolderPath & &\&
'-- 获得所有子目录
Do Until i & k
f = Dir(file(i), vbDirectory)
Do Until f = &&
If InStr(f, &.&) = 0 Then
ReDim Preserve file(1 To k)
file(k) = file(i) & f & &\&
'-- 获得所有子目录下的所有文件
For i = 1 To k
f = Dir(file(i) & &*.*&)
'通配符*.*表示所有文件，*.xlsx Excel文件
Do Until f = &&
'Range(&a& & x) = f
Range(&a& & x).Hyperlinks.Add Anchor:=Range(&a& & x), Address:=file(i) & f, TextToDisplay:=f
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：128732次
积分：1407
积分：1407
排名：千里之外
原创：23篇
转载：11篇
评论：15条
(1)(1)(1)(1)(1)(1)(1)(3)(2)(1)(1)(1)(1)(1)(1)(1)(3)(1)(3)(1)(1)(1)(3)(3)}