FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/06«│ 2019/07| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/08
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:30:14


Sub ken()
Application.ScreenUpdating = False
Dim kensaku
kensaku = InputBox("検索したいテキストの入力")
Dim Shell, myPath
Set Shell = CreateObject("Shell.Application")
Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\")
If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path
Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim fl As Folder
Set fl = fso.GetFolder(myPath.Items.Item.Path) ' フォルダを取得
Dim f As File
For Each f In fl.Files
If InStr(fl.Files, kensaku) <> 0 Then
ListBox1.AddItem fl.Files
End If
Next

Set Shell = Nothing
Set myPath = Nothing
Application.ScreenUpdating = True
End Sub




7feb6_1604_e178b07bfd4873622403e7b6654c481b.jpg

コウペンちゃんって可愛いですよね。後こんなの買っちゃいました。



これのガチャガチャも可愛いです(笑)
これはブログ等のポイントで買いました。
最近買い物のほとんどはポイントですませてます。



これは一個百円。散財。

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/443-56ab13ab
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト