|
▼ichinose さん:<おはようございます。
>▼いどっと さん:
>おはようございます。
>ちょっと訂正です。
>'=======================================
>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箇所訂正願います。
また、ネットで調べた関数の使い方がわからないときには質問させていただきますのでよろしくお願い致します。
いどっと
|
|