|
▼いどっと さん:
おはようございます。
ちょっと訂正です。
'=======================================
Sub find_file_sample() 'どうでもよいですが、sammple---sample
Dim fso As Object
Dim fld As Object
Dim fl As Object
Dim fldnm As Variant
fldnm = get_folder_path("フォルダを選択してください")
If TypeName(fldnm) <> "Boolean" Then
findwd = Application.InputBox("検索条件を入力してください 例(k*.xls)")
If TypeName(findwd) <> "Boolean" Then
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(fldnm)
For Each fl In fld.Files
If LCase(fl.Name) Like lcase(findwd) Then '<-こっちは重要
MsgBox fl.Name
End If
Next
End If
End If
End Sub
以上、2箇所訂正願います。
|
|