|
▼Jaka さん、IROCさん、
ありがとうございます。
試してみます。
1点質問なのですが、下記の部分はセルにファイル名と
ファイルの更新日付等を記載するようにしているのでしょうか??
> Cells(i, 1).Value = FilNm
> Cells(i, 2).Value = FileDateTime(FlDPass & FilNm)
>
>これで一応ファイル名と更新日が取得できますから、IF文などで振り分けてください。
>尚、ファイルの移動については、
>[#9577]
>
>Sub ABC()
> '↓ 参照したいフォルダパスに直してください。現在デスクトップ。
> FlDPass = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
> FilNm = Dir(FlDPass)
> Do Until FilNm = ""
> If FilNm Like "*.xls" Then
> i = i + 1
> Cells(i, 1).Value = FilNm
> Cells(i, 2).Value = FileDateTime(FlDPass & FilNm)
> End If
> FilNm = Dir()
> Loop
>End Sub
|
|