指定フォルダのファイル名検索1　 次の文書

Excel 2002 2003

Sub TEST()
Dim FS As FileSearch
Dim i As Long
Cells.ClearContents
Set FS = Application.FileSearch
Application.ScreenUpdating = False
With FS
'■■■　検索ドライブの指定　■■■
.LookIn = "D:\temp"
'■■■　サブフォルダーを検索するかどうかの指定　■■■
.SearchSubFolders = True
'■■■　検索する拡張子の指定　■■■
.FileName = "*.*"
If .Execute(msoSortByFileType, msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, "a") = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))) - 1)
Cells(i, "b") = Dir(.FoundFiles(i))
Cells(i, "c") = FileDateTime(.FoundFiles(i))
Cells(i, "d") = FileLen(.FoundFiles(i))
Application.StatusBar = .FoundFiles(i)
Next i
Else
MsgBox "ファイルがありません。"
End If
End With
MsgBox "終了しました。"
Application.StatusBar = False
End Sub

　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)