Question

请教，一个文件夹a目录下有几十个文件，用什么命令可以得出这些文件的名称和创建时间，时间要精确到秒。

请教，一个文件夹a目录下有几十个文件，用什么命令可以得出这些文件的名称和创建时间，时间要精确到秒。dir命令只能获取时间到分，我要的是到获取时间到秒。注意，时间是到秒！谢谢！麻烦各位大神！

Answer 1

可以用DOS命令：
DIR > DIR.TXT
就会获得一个叫“DIR.TXT”的文件，里面有你所要的。

Answer 2

Sub Macro1()
Dim SFileName$, Fs As Object, Spath$, f, f1
'Set Fs = CreateObject("Scripting.FileSystemobject")
Set Fs = New FileSystemObject
i = 2
Set f = Fs.GetFolder("D:\\ForC")
For Each f1 In f.Files
Cells(i, 1) = f1.Name
Cells(i, 2) = f1.DateLastModified '.DateCreated
i = i + 1
Next f1
End Sub

文件夹自己更改，对象的引用方式自己选择。

Answer 3

@echo off
setlocal enabledelayedexpansion
set folderA="输入文件夹A的路径，如，D:\A"
set folderB="输入文件夹B的路径，如，D:\B"
for /l %%i in (1,1,10) do md "%folderB%\%%i"
set a=0
for /r %folderA% %%i in (*.*) do (
set /a b=!a!%%10+1
set /a a+=1
move "%%i" "%folderB%\!b!\"
)

Answer 4

Dir 可以到秒, 用 datecreated 属性

sfilename = Dir(spath, 0)
Do While Len(sfilename) > 0
.Cells(i, 1) = f.DateCreated
sfilename = Dir()
i = i + 1

追问

比如说我想把d:\a文件夹下的文件名和修改时间导出来存在Excel文件里该怎么办，谢谢！

直接dir >a.xls，信息里时间只到分，没秒

Answer 5

VBA可以，时间精确到秒