|
こんにちは。かみちゃん です。
> FileTypeのところがわからない
hitosi さんが何をしたいのかが今ひとつわからないのですが、
FileTypeプロパティとFileNameプロパティの使い方を混同されているように思います。
たぶん以下のような感じでできます。
Sub Test()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.Filename = "*.txt" '★
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles '★
If .Execute() > 0 Then
MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With
End Sub
あと、ヘルプでわからなければ、過去ログを検索するのもひとつだと思いますよ。
私はそうしています。
|
|