```Python
import subprocess
import glob
import pathlib

def findOpen(url, fil):
        share = pathlib.WindowsPath(url)
        try:
                if share.exists():
                        path = ''
                        print(url)
                        for x in share.glob(fil):
                                print(x)
                                path = str(x)
                        if path != '':
                                print('Open : ' + path)
                                subprocess.Popen(['start','', path], shell=True)
        except:
                import traceback
                traceback.print_exc()
                input("Press Enter to continue...")

url = r'C:\\フォルダ'
fil = '[!(~$)]*ファイル名.xls?'

findOpen(url,fil)


<div class="code-frame" data-lang="Python" data-sourcepos="1:1-26:17"><div class="highlight"><pre><code>import subprocess
import glob
import pathlib

def findOpen(url, fil):
 share = pathlib.WindowsPath(url)
 try:
 if share.exists():
 path = ''
 print(url)
 for x in share.glob(fil):
 print(x)
 path = str(x)
 if path != '':
 print('Open : ' + path)
 subprocess.Popen(['start','', path], shell=True)
 except:
 import traceback
 traceback.print_exc()
 input("Press Enter to continue...")

url = r'C:\\フォルダ'
fil = '[!(~$)]*ファイル名.xls?'

findOpen(url,fil)
</code></pre></div></div>

Pythonでフォルダ内の日付順に管理されたExcelファイルの最新データを開いてみた

# ソースコード
```Python
import subprocess
import glob
import pathlib

def find(url, fil):
        share = pathlib.WindowsPath(url)
        try:
                if share.exists():
                        print(url)
                        for x in share.glob(fil):
                                print(str(x).replace(url, ''))
                return True
        except:
                import traceback
                traceback.print_exc()
                input("Press Enter to continue...")
                return False

def doFunc():
        print('検索キーワードを入力して下さい')
        word = input()

        if word:
                print('キーワード 『'+word+'』で検索中です。')
                url = r'D:\\対象フォルダ'
                fil = '**/[!(~$)]*' + word + '*.*'
                return find(url,fil)
        else:
                return True

        input("検索が完了しました。\nEnterキーを押すと処理を終了します。")


while doFunc():
        print('処理を継続します！\n'+"-"*100)
```


<h1 data-sourcepos="1:1-1:20">
<a href="#%E3%82%BD%E3%83%BC%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89"></a>ソースコード</h1>
<div class="code-frame" data-lang="Python" data-sourcepos="2:1-38:3"><div class="highlight"><pre><code>import subprocess
import glob
import pathlib

def find(url, fil):
 share = pathlib.WindowsPath(url)
 try:
 if share.exists():
 print(url)
 for x in share.glob(fil):
 print(str(x).replace(url, ''))
 return True
 except:
 import traceback
 traceback.print_exc()
 input("Press Enter to continue...")
 return False

def doFunc():
 print('検索キーワードを入力して下さい')
 word = input()

 if word:
 print('キーワード 『'+word+'』で検索中です。')
 url = r'D:\\対象フォルダ'
 fil = '**/[!(~$)]*' + word + '*.*'
 return find(url,fil)
 else:
 return True

 input("検索が完了しました。\nEnterキーを押すと処理を終了します。")


while doFunc():
 print('処理を継続します！\n'+"-"*100)
</code></pre></div></div>

Pythonでフォルダ配下のファイルをファイル名で検索してみた

# はじめに

Python初心者が勉強のために、まずはファイル整理からしてみました！
需要があるかは分かりませんが、`拡張子 / 年_月`の構成でフォルダ分けしてみましたので、備忘もかねて記録に残しておきます。

# ソースコード
```Python

import shutil
import os
import glob
import datetime
import sys

# 参考サイト
####################################################

# Pythonでファイル・ディレクトリを移動するshutil.move
# https://note.nkmk.me/python-shutil-move/

####################################################

# Pythonでglobモジュールを使う方法【初心者向け】
# https://techacademy.jp/magazine/18928

####################################################

def mv_file(ex):
    df_path = 'bk/' + ex
    os.makedirs(df_path, exist_ok=True)

    # mv_file 関数の引数で指定した拡張子を持つファイルを検索（同フォルダ内）
    for x in glob.glob('*.' + ex):
        print(x)
        # ファイル作成日のタイムスタンプを取得
        dt = datetime.datetime.fromtimestamp(os.path.getctime(x))
        if dt: # 作成日を取得できた場合
            # タイムスタンプから 『年_月』 へフォーマット変換
            fm = dt.strftime('%Y_%m')
            path = df_path + '/' + fm 
        else: # 作成日を取得できなかった場合
            path = df_path + '/others'
        # ディレクトリを生成（既にあった場合は無視される）
        os.makedirs(path, exist_ok=True)
        # ファイルを『path』へ移動する
        new_path = shutil.move(x, path)

# 以下、関数実行
mv_file('pdf')
mv_file('zip')
mv_file('jpg')
mv_file('png')
mv_file('xls')
mv_file('xlsx')
mv_file('xlsm')
mv_file('doc')
mv_file('docx')
mv_file('ppt')
mv_file('pptx')
mv_file('csv')

# 動作確認のため、Enterキーが押されるまで待機させる
input("Press Enter to continue...")

```

# 最後に

命名規則やエラー防止等、作りこみができていない箇所が多々ありますので、もしソースを流用される場合は、破損しても問題のないファイルで動作確認してからご利用下さい！


<h1 data-sourcepos="1:1-1:14">
<a href="#%E3%81%AF%E3%81%98%E3%82%81%E3%81%AB"></a>はじめに</h1>
Python初心者が勉強のために、まずはファイル整理からしてみました！ 
需要があるかは分かりませんが、<code>拡張子 / 年_月</code>の構成でフォルダ分けしてみましたので、備忘もかねて記録に残しておきます。
<h1 data-sourcepos="6:1-6:20">
<a href="#%E3%82%BD%E3%83%BC%E3%82%B9%E3%82%B3%E3%83%BC%E3%83%89"></a>ソースコード</h1>
<div class="code-frame" data-lang="Python" data-sourcepos="7:1-65:3"><div class="highlight"><pre><code>
import shutil
import os
import glob
import datetime
import sys

# 参考サイト
####################################################

# Pythonでファイル・ディレクトリを移動するshutil.move
# https://note.nkmk.me/python-shutil-move/

####################################################

# Pythonでglobモジュールを使う方法【初心者向け】
# https://techacademy.jp/magazine/18928

####################################################

def mv_file(ex):
 df_path = 'bk/' + ex
 os.makedirs(df_path, exist_ok=True)

 # mv_file 関数の引数で指定した拡張子を持つファイルを検索（同フォルダ内）
 for x in glob.glob('*.' + ex):
 print(x)
 # ファイル作成日のタイムスタンプを取得
 dt = datetime.datetime.fromtimestamp(os.path.getctime(x))
 if dt: # 作成日を取得できた場合
 # タイムスタンプから 『年_月』 へフォーマット変換
 fm = dt.strftime('%Y_%m')
 path = df_path + '/' + fm 
 else: # 作成日を取得できなかった場合
 path = df_path + '/others'
 # ディレクトリを生成（既にあった場合は無視される）
 os.makedirs(path, exist_ok=True)
 # ファイルを『path』へ移動する
 new_path = shutil.move(x, path)

# 以下、関数実行
mv_file('pdf')
mv_file('zip')
mv_file('jpg')
mv_file('png')
mv_file('xls')
mv_file('xlsx')
mv_file('xlsm')
mv_file('doc')
mv_file('docx')
mv_file('ppt')
mv_file('pptx')
mv_file('csv')

# 動作確認のため、Enterキーが押されるまで待機させる
input("Press Enter to continue...")

</code></pre></div></div>
<h1 data-sourcepos="67:1-67:11">
<a href="#%E6%9C%80%E5%BE%8C%E3%81%AB"></a>最後に</h1>
命名規則やエラー防止等、作りこみができていない箇所が多々ありますので、もしソースを流用される場合は、破損しても問題のないファイルで動作確認してからご利用下さい！

Pythonでファイルをフォルダ分けしてみた

# はじめに
VBAでクラスモジュールを作ることが少ないからか資料があまり見つからなかったので、勉強がてらデザインパターンを無理やりVBAに適用してみました。 
デザインパターンを利用するには制約の多いVBAですが、少しでも綺麗なコードになるように積極的に取り入れていこうと思います。

# Singleton（シングルトン）パターンとは
>
■Singleton（シングルトン）パターン
あるクラスのインスタンスが、プログラム内に1つしかないことを保証したいケースがあります。それを実現するために、全てのメンバーに「インスタンスを生成するなよ！」と注意をうながし、厳密にレビューをするということはあまり現実的ではないですよね。そんなとき、効果があるのがSingletonパターンです。  
[5分で分かるJavaデザインパターン](https://geechs-magazine.com/tag/tech/20160304)

ということで、サンプルで記載されていた以下のクラスを自分なりにVBAに置き換えてみました。

## Javaサンプルコード
```Java
public class Moon{
    private static Moon moon = new Moon();
    private Moon(){}
    public static Moon getInstance(){
        return moon;
    }
}
```
## VBA適用例
```VB:FSO_Class.cls
Private cFSO As Object
Private Sub Class_Initialize()
    Set cFSO = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Class_Terminate()
    Set cFSO = Nothing
End Sub
Public Property Get GetFSO() As Object
    Set GetFSO = cFSO
End Property


Public Function Sample(ByVal url As String) As String
    With New FSO_Class
        Sample = .GetFSO.GetAbsolutePathName(url)
    End With
End Function
```
上のサンプルではあまりメリットが感じられないような…
Dictionaryとかで利用すると恩恵がありそうですが、
もはや他のパターンになっていきそうなのでこのくらいにしておきます。
# まとめ
VBAで適用するとコードがちょっとスッキリします。
ただ、適用するインスタンスは考えないと変数への格納だけでいいじゃん…となってしましそうです。
ぼんやりとIEの操作や外部ブックの呼び出しとかで適用すると良さそうな感じがしました。

# 最後に
独学で基礎すっ飛ばしてプログラミングしているため、間違いや勘違いしているかもしれませんが、温かい目で見ていただけると幸いです。
そのときは、コメントでご指摘いただければ修正しますので、
ご支援よろしくお願いします。


<h1 data-sourcepos="1:1-1:14">
<a href="#%E3%81%AF%E3%81%98%E3%82%81%E3%81%AB"></a>はじめに</h1>
VBAでクラスモジュールを作ることが少ないからか資料があまり見つからなかったので、勉強がてらデザインパターンを無理やりVBAに適用してみました。 
デザインパターンを利用するには制約の多いVBAですが、少しでも綺麗なコードになるように積極的に取り入れていこうと思います。
<h1 data-sourcepos="5:1-5:53">
<a href="#singleton%E3%82%B7%E3%83%B3%E3%82%B0%E3%83%AB%E3%83%88%E3%83%B3%E3%83%91%E3%82%BF%E3%83%BC%E3%83%B3%E3%81%A8%E3%81%AF"></a>Singleton（シングルトン）パターンとは</h1>
<blockquote data-sourcepos="6:1-6:1">
</blockquote>
■Singleton（シングルトン）パターン 
あるクラスのインスタンスが、プログラム内に1つしかないことを保証したいケースがあります。それを実現するために、全てのメンバーに「インスタンスを生成するなよ！」と注意をうながし、厳密にレビューをするということはあまり現実的ではないですよね。そんなとき、効果があるのがSingletonパターンです。 
<a href="https://geechs-magazine.com/tag/tech/20160304" rel="nofollow noopener" target="_blank">5分で分かるJavaデザインパターン</a>
ということで、サンプルで記載されていた以下のクラスを自分なりにVBAに置き換えてみました。
<h2 data-sourcepos="13:1-13:28">
<a href="#java%E3%82%B5%E3%83%B3%E3%83%97%E3%83%AB%E3%82%B3%E3%83%BC%E3%83%89"></a>Javaサンプルコード</h2>
<div class="code-frame" data-lang="Java" data-sourcepos="14:1-22:3"><div class="highlight"><pre><code>public class Moon{
 private static Moon moon = new Moon();
 private Moon(){}
 public static Moon getInstance(){
 return moon;
 }
}
</code></pre></div></div>
<h2 data-sourcepos="23:1-23:15">
<a href="#vba%E9%81%A9%E7%94%A8%E4%BE%8B"></a>VBA適用例</h2>
<div class="code-frame" data-lang="VB" data-sourcepos="24:1-42:3">
<div class="code-lang">FSO_Class.cls</div>
<div class="highlight"><pre><code>Private cFSO As Object
Private Sub Class_Initialize()
 Set cFSO = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Class_Terminate()
 Set cFSO = Nothing
End Sub
Public Property Get GetFSO() As Object
 Set GetFSO = cFSO
End Property


Public Function Sample(ByVal url As String) As String
 With New FSO_Class
 Sample = .GetFSO.GetAbsolutePathName(url)
 End With
End Function
</code></pre></div>
</div>
上のサンプルではあまりメリットが感じられないような… 
Dictionaryとかで利用すると恩恵がありそうですが、 
もはや他のパターンになっていきそうなのでこのくらいにしておきます。
<h1 data-sourcepos="46:1-46:11">
<a href="#%E3%81%BE%E3%81%A8%E3%82%81"></a>まとめ</h1>
VBAで適用するとコードがちょっとスッキリします。 
ただ、適用するインスタンスは考えないと変数への格納だけでいいじゃん…となってしましそうです。 
ぼんやりとIEの操作や外部ブックの呼び出しとかで適用すると良さそうな感じがしました。
<h1 data-sourcepos="51:1-51:11">
<a href="#%E6%9C%80%E5%BE%8C%E3%81%AB"></a>最後に</h1>
独学で基礎すっ飛ばしてプログラミングしているため、間違いや勘違いしているかもしれませんが、温かい目で見ていただけると幸いです。 
そのときは、コメントでご指摘いただければ修正しますので、 
ご支援よろしくお願いします。

VBAでSingleton（シングルトン）パターン

# 目的
- クラスモジュールなどを作成する際、事前バインディングを利用すると、あとで流用する時に参照設定漏れなどで不具合の元になるため、個人的に実行時バインディングで記入することが多い。  
そのため、必要になる処理を備忘＋コピペ用に整理する。

# オブジェクトの参照方法について
呼び出し方法によってインスタンスの生成タイミングが異なるため、
状況によっては注意が必要
## Set = での宣言
```VB
Dim obj As Object
Set obj = CreateObject("Scripting.FileSystemObject")
' ~~~ 処理 ~~~
MsgBox obj.GetFolder("C:\temp").Files.Count
' ~~~~~~~~~~~~
Set obj = Nothing
```
Setで代入した際にインスタンスが生成される。
## With での宣言
```VB
With CreateObject("Scripting.FileSystemObject")
' ~~~ 処理 ~~~
    MsgBox .GetFolder("C:\temp").Files.Count
' ~~~~~~~~~~~~
End With
```
With内で最初に呼び出されたメソッド、プロパティ利用時にインスタンスが生成される。
# 実行時バインディング 一覧
参照設定|class(CreateObject)|オブジェクト式(As,New)
:-:|:-:|:-:
Microsoft Access X.X Object Library|Access.Application|Access.Application
Microsoft Excel X.X Object Library|Excel.Application|Excel.Application
Microsoft Word X.X Object Library|Word.Application|Word.Application
Microsoft Word X.X Object Library|Word.Document|Word.Document
Microsoft PowerPoint X.X Object Library|PowerPoint.Application|PowerPoint.Application
Microsoft Outlook X.X Object Library|Outlook.Application|Outlook.Application
Microsoft CDO for Windows 2000 Library|CDO.Message|CDO.Message
Microsoft Internet Controls|InternetExplorer.Application|InternetExplorer
Microsoft HTML Object Library|htmlfile|HTMLDocument
Microsoft XML, vX.X|MSXML2.XMLHTTP  XMLHTTP60 ・・・Windows10|MSXML2.XMLHTTP
Microsoft ActiveX Data Objects X.X Library|ADODB.Connection|	ADODB.Connection
Microsoft ActiveX Data Objects X.X Library|ADODB.Recordset|ADODB.Recordset
Microsoft ActiveX Data Objects X.X Library|ADODB.Stream|ADODB.Stream
Microsoft DAO 3.6 Object Library|DAO.DBEngine.120|DAO.DBEngine
Microsoft Forms 2.0 Object Library|new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}|MSForms.DataObject
Microsoft Scripting Runtime|Scripting.Dictionary|Dictionary
Microsoft Scripting Runtime|Scripting.FileSystemObject|FileSystemObject
Windows Script Host Object Model|Wscript.Shell|WshShell
Microsoft Shell Controls And Automation|Shell.Application|Shell32.Shell
Microsoft VBScript Regular Expressions X.X|VBScript.RegExp|RegExp
Microsoft WMI Scripting VX.X Library|WbemScripting.SWbemLocator|WbemScripting.SWbemLocator
# 参考サイト
[参照設定、CreateObject、オブジェクト式の一覧](https://excel-ubara.com/excelvba4/EXCEL296.html)
[参照設定とCreateObjectの対応リスト](http://www.thom.jp/vbainfo/refsetting.html)


<h1 data-sourcepos="1:1-1:8">
<a href="#%E7%9B%AE%E7%9A%84"></a>目的</h1>
<ul data-sourcepos="2:1-4:0">
<li data-sourcepos="2:1-4:0">クラスモジュールなどを作成する際、事前バインディングを利用すると、あとで流用する時に参照設定漏れなどで不具合の元になるため、個人的に実行時バインディングで記入することが多い。 
そのため、必要になる処理を備忘＋コピペ用に整理する。</li>
</ul>
<h1 data-sourcepos="5:1-5:47">
<a href="#%E3%82%AA%E3%83%96%E3%82%B8%E3%82%A7%E3%82%AF%E3%83%88%E3%81%AE%E5%8F%82%E7%85%A7%E6%96%B9%E6%B3%95%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6"></a>オブジェクトの参照方法について</h1>
呼び出し方法によってインスタンスの生成タイミングが異なるため、 
状況によっては注意が必要
<h2 data-sourcepos="8:1-8:21">
<a href="#set--%E3%81%A7%E3%81%AE%E5%AE%A3%E8%A8%80"></a>Set = での宣言</h2>
<div class="code-frame" data-lang="VB" data-sourcepos="9:1-16:3"><div class="highlight"><pre><code>Dim obj As Object
Set obj = CreateObject("Scripting.FileSystemObject")
' ~~~ 処理 ~~~
MsgBox obj.GetFolder("C:\temp").Files.Count
' ~~~~~~~~~~~~
Set obj = Nothing
</code></pre></div></div>
Setで代入した際にインスタンスが生成される。
<h2 data-sourcepos="18:1-18:20">
<a href="#with-%E3%81%A7%E3%81%AE%E5%AE%A3%E8%A8%80"></a>With での宣言</h2>
<div class="code-frame" data-lang="VB" data-sourcepos="19:1-25:3"><div class="highlight"><pre><code>With CreateObject("Scripting.FileSystemObject")
' ~~~ 処理 ~~~
 MsgBox .GetFolder("C:\temp").Files.Count
' ~~~~~~~~~~~~
End With
</code></pre></div></div>
With内で最初に呼び出されたメソッド、プロパティ利用時にインスタンスが生成される。
<h1 data-sourcepos="27:1-27:39">
<a href="#%E5%AE%9F%E8%A1%8C%E6%99%82%E3%83%90%E3%82%A4%E3%83%B3%E3%83%87%E3%82%A3%E3%83%B3%E3%82%B0-%E4%B8%80%E8%A6%A7"></a>実行時バインディング 一覧</h1>
<table data-sourcepos="28:1-50:90">
<thead>
<tr data-sourcepos="28:1-28:62">
<th style="text-align: center" data-sourcepos="28:1-28:12">参照設定</th>
<th style="text-align: center" data-sourcepos="28:14-28:32">class(CreateObject)</th>
<th style="text-align: center" data-sourcepos="28:34-28:62">オブジェクト式(As,New)</th>
</tr>
</thead>
<tbody>
<tr data-sourcepos="30:1-30:73">
<td style="text-align: center" data-sourcepos="30:1-30:35">Microsoft Access X.X Object Library</td>
<td style="text-align: center" data-sourcepos="30:37-30:54">Access.Application</td>
<td style="text-align: center" data-sourcepos="30:56-30:73">Access.Application</td>
</tr>
<tr data-sourcepos="31:1-31:70">
<td style="text-align: center" data-sourcepos="31:1-31:34">Microsoft Excel X.X Object Library</td>
<td style="text-align: center" data-sourcepos="31:36-31:52">Excel.Application</td>
<td style="text-align: center" data-sourcepos="31:54-31:70">Excel.Application</td>
</tr>
<tr data-sourcepos="32:1-32:67">
<td style="text-align: center" data-sourcepos="32:1-32:33">Microsoft Word X.X Object Library</td>
<td style="text-align: center" data-sourcepos="32:35-32:50">Word.Application</td>
<td style="text-align: center" data-sourcepos="32:52-32:67">Word.Application</td>
</tr>
<tr data-sourcepos="33:1-33:61">
<td style="text-align: center" data-sourcepos="33:1-33:33">Microsoft Word X.X Object Library</td>
<td style="text-align: center" data-sourcepos="33:35-33:47">Word.Document</td>
<td style="text-align: center" data-sourcepos="33:49-33:61">Word.Document</td>
</tr>
<tr data-sourcepos="34:1-34:85">
<td style="text-align: center" data-sourcepos="34:1-34:39">Microsoft PowerPoint X.X Object Library</td>
<td style="text-align: center" data-sourcepos="34:41-34:62">PowerPoint.Application</td>
<td style="text-align: center" data-sourcepos="34:64-34:85">PowerPoint.Application</td>
</tr>
<tr data-sourcepos="35:1-35:76">
<td style="text-align: center" data-sourcepos="35:1-35:36">Microsoft Outlook X.X Object Library</td>
<td style="text-align: center" data-sourcepos="35:38-35:56">Outlook.Application</td>
<td style="text-align: center" data-sourcepos="35:58-35:76">Outlook.Application</td>
</tr>
<tr data-sourcepos="36:1-36:62">
<td style="text-align: center" data-sourcepos="36:1-36:38">Microsoft CDO for Windows 2000 Library</td>
<td style="text-align: center" data-sourcepos="36:40-36:50">CDO.Message</td>
<td style="text-align: center" data-sourcepos="36:52-36:62">CDO.Message</td>
</tr>
<tr data-sourcepos="37:1-37:73">
<td style="text-align: center" data-sourcepos="37:1-37:27">Microsoft Internet Controls</td>
<td style="text-align: center" data-sourcepos="37:29-37:56">InternetExplorer.Application</td>
<td style="text-align: center" data-sourcepos="37:58-37:73">InternetExplorer</td>
</tr>
<tr data-sourcepos="38:1-38:51">
<td style="text-align: center" data-sourcepos="38:1-38:29">Microsoft HTML Object Library</td>
<td style="text-align: center" data-sourcepos="38:31-38:38">htmlfile</td>
<td style="text-align: center" data-sourcepos="38:40-38:51">HTMLDocument</td>
</tr>
<tr data-sourcepos="39:1-39:79">
<td style="text-align: center" data-sourcepos="39:1-39:19">Microsoft XML, vX.X</td>
<td style="text-align: center" data-sourcepos="39:21-39:64">MSXML2.XMLHTTP XMLHTTP60 ・・・Windows10</td>
<td style="text-align: center" data-sourcepos="39:66-39:79">MSXML2.XMLHTTP</td>
</tr>
<tr data-sourcepos="40:1-40:77">
<td style="text-align: center" data-sourcepos="40:1-40:42">Microsoft ActiveX Data Objects X.X Library</td>
<td style="text-align: center" data-sourcepos="40:44-40:59">ADODB.Connection</td>
<td style="text-align: center" data-sourcepos="40:61-40:77">ADODB.Connection</td>
</tr>
<tr data-sourcepos="41:1-41:74">
<td style="text-align: center" data-sourcepos="41:1-41:42">Microsoft ActiveX Data Objects X.X Library</td>
<td style="text-align: center" data-sourcepos="41:44-41:58">ADODB.Recordset</td>
<td style="text-align: center" data-sourcepos="41:60-41:74">ADODB.Recordset</td>
</tr>
<tr data-sourcepos="42:1-42:68">
<td style="text-align: center" data-sourcepos="42:1-42:42">Microsoft ActiveX Data Objects X.X Library</td>
<td style="text-align: center" data-sourcepos="42:44-42:55">ADODB.Stream</td>
<td style="text-align: center" data-sourcepos="42:57-42:68">ADODB.Stream</td>
</tr>
<tr data-sourcepos="43:1-43:62">
<td style="text-align: center" data-sourcepos="43:1-43:32">Microsoft DAO 3.6 Object Library</td>
<td style="text-align: center" data-sourcepos="43:34-43:49">DAO.DBEngine.120</td>
<td style="text-align: center" data-sourcepos="43:51-43:62">DAO.DBEngine</td>
</tr>
<tr data-sourcepos="44:1-44:96">
<td style="text-align: center" data-sourcepos="44:1-44:34">Microsoft Forms 2.0 Object Library</td>
<td style="text-align: center" data-sourcepos="44:36-44:77">new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}</td>
<td style="text-align: center" data-sourcepos="44:79-44:96">MSForms.DataObject</td>
</tr>
<tr data-sourcepos="45:1-45:59">
<td style="text-align: center" data-sourcepos="45:1-45:27">Microsoft Scripting Runtime</td>
<td style="text-align: center" data-sourcepos="45:29-45:48">Scripting.Dictionary</td>
<td style="text-align: center" data-sourcepos="45:50-45:59">Dictionary</td>
</tr>
<tr data-sourcepos="46:1-46:71">
<td style="text-align: center" data-sourcepos="46:1-46:27">Microsoft Scripting Runtime</td>
<td style="text-align: center" data-sourcepos="46:29-46:54">Scripting.FileSystemObject</td>
<td style="text-align: center" data-sourcepos="46:56-46:71">FileSystemObject</td>
</tr>
<tr data-sourcepos="47:1-47:55">
<td style="text-align: center" data-sourcepos="47:1-47:32">Windows Script Host Object Model</td>
<td style="text-align: center" data-sourcepos="47:34-47:46">Wscript.Shell</td>
<td style="text-align: center" data-sourcepos="47:48-47:55">WshShell</td>
</tr>
<tr data-sourcepos="48:1-48:71">
<td style="text-align: center" data-sourcepos="48:1-48:39">Microsoft Shell Controls And Automation</td>
<td style="text-align: center" data-sourcepos="48:41-48:57">Shell.Application</td>
<td style="text-align: center" data-sourcepos="48:59-48:71">Shell32.Shell</td>
</tr>
<tr data-sourcepos="49:1-49:65">
<td style="text-align: center" data-sourcepos="49:1-49:42">Microsoft VBScript Regular Expressions X.X</td>
<td style="text-align: center" data-sourcepos="49:44-49:58">VBScript.RegExp</td>
<td style="text-align: center" data-sourcepos="49:60-49:65">RegExp</td>
</tr>
<tr data-sourcepos="50:1-50:90">
<td style="text-align: center" data-sourcepos="50:1-50:36">Microsoft WMI Scripting VX.X Library</td>
<td style="text-align: center" data-sourcepos="50:38-50:63">WbemScripting.SWbemLocator</td>
<td style="text-align: center" data-sourcepos="50:65-50:90">WbemScripting.SWbemLocator</td>
</tr>
</tbody>
</table>
<h1 data-sourcepos="51:1-51:17">
<a href="#%E5%8F%82%E8%80%83%E3%82%B5%E3%82%A4%E3%83%88"></a>参考サイト</h1>
<a href="https://excel-ubara.com/excelvba4/EXCEL296.html" rel="nofollow noopener" target="_blank">参照設定、CreateObject、オブジェクト式の一覧</a> 
<a href="http://www.thom.jp/vbainfo/refsetting.html" rel="nofollow noopener" target="_blank">参照設定とCreateObjectの対応リスト</a>

CreateObjectでよく使用するオブジェクト一覧

#目的
VBAでフォルダやファイルを検索する際、サブフォルダ内を検索する処理が複雑になるため、
PythonのGlobを参考にクラスモジュールを作成してみた。

#ソースコード
## VBA 使用例
```VB:Module1.bas
Sub GlobTest()
 Dim item As Variant
 With New Glob
 .SetType = Dictionary ' 省略可 出力形式指定用
 For Each item In .iGlob("**\*.cls")
 Debug.Print item
 Next
 End With
End Sub
```
### メソッド
|名称|返り値|
|:-:|:-:|
|iGlob(パス)|フォルダ・ファイル検索結果(出力形式可変)|
|Glob(パス)|フォルダ・ファイル検索結果(Dictionary形式)|
|GlobFolder(パス)|フォルダのみ検索結果(Dictionary形式)|

### プロパティ
|名称|値|
|:-:|:-:|
|SetType|出力形式|
|GetType|出力形式|
|GetCount|検索に一致した数|
|GetItems|iGlobの返り値と同一|

### 出力形式種別
|名称|形式|
|:-:|:-:|
|[Dictionary](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/dictionary-object)|String()|
|[Collection](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/collection-object)|File(),Folder()|
|[ArrayList](http://rucio.a.la9.jp/main/dotnet/ClassLibrary/L001_System.Collections.ArrayList.htm)|String()|
|[StringArray](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/split-function)|String()|

### 検索条件
|記載内容|出力結果|
|:-:|:-:|
|`\*\`|同一パス内のフォルダを列挙|
|`\*`|同一パス内のファイルを列挙|
|`\*.cls`|同一パス内の拡張子がclsのファイルを列挙|
|`\*\*`|サブフォルダ内のファイルを列挙|
|`\{*}\*`|同一パス内とサブフォルダ内のファイルを列挙|
|`\**\*`|再帰的に検索してすべての階層のファイルを列挙|

## Python 参考コード例
```Python
import glob
for x in glob.glob('**/*.cls', recursive=True):
 print x
```

## クラスモジュール本体
```VB:Glob.cls
Private DefPath As String
Private Items As Variant
Private FSO As Object

Enum GlobDataType
 None = 0
 StringArray = 1
 ArrayList = 2
 dictionary = 3
 Collection = 4
End Enum

Private Sub Class_Initialize()
 Set FSO = CreateObject("Scripting.FileSystemObject")
 With CreateObject("WScript.Shell")
 .CurrentDirectory = ThisWorkbook.path & "\"
 End With
 Me.Clear
End Sub

Private Sub Class_Terminate()
 Set Items = Nothing
 Set FSO = Nothing
End Sub

Public Sub Clear()

 DefPath = ThisWorkbook.path & "\"
 count = 0
 Select Case Me.GetType
 Case GlobDataType.dictionary
 Me.SetType = dictionary
 Case GlobDataType.Collection
 Me.SetType = Collection
 Case GlobDataType.StringArray
 Me.SetType = StringArray
 Case GlobDataType.ArrayList
 Me.SetType = ArrayList
 Case Else
 Me.SetType = Collection
 End Select

End Sub

Public Function GetItems() As Variant
 Select Case Me.GetType
 Case GlobDataType.dictionary, GlobDataType.Collection, GlobDataType.ArrayList
 Set GetItems = Items
 Case GlobDataType.StringArray
 GetItems = Split(Items, "||")
 Case Else
 GetItems = Array()
 End Select
End Function

Public Function GetCount() As Long
 Select Case Me.GetType
 Case GlobDataType.dictionary, GlobDataType.Collection, GlobDataType.ArrayList
 GetCount = Items.count
 Case GlobDataType.StringArray
 If Items = "" Then
 GetCount = 0
 Else
 GetCount = UBound(Split(Items, "||")) + 1
 End If
 Case Else
 GetCount = -1
 End Select
End Function

Public Sub AddItem(ByVal name As String, ByVal v As Variant)
 Select Case Me.GetType
 Case GlobDataType.dictionary
 Items.Add name, v
 Case GlobDataType.Collection
 Items.Add v, name
 Case GlobDataType.ArrayList
 Items.Add v
 Case GlobDataType.StringArray
 If Items <> "" Then Items = Items & "||"
 Items = Items & v
 End Select
End Sub

Public Property Get GetType() As GlobDataType
 Select Case Me.GetTypeName
 Case "Collection"
 GetType = GlobDataType.Collection
 Case "Dictionary"
 GetType = GlobDataType.dictionary
 Case "String"
 GetType = GlobDataType.StringArray
 Case "ArrayList"
 GetType = GlobDataType.ArrayList
 Case Else
 GetType = GlobDataType.None
 End Select
End Property

Public Property Let SetType(ByVal TypeName As GlobDataType)
 Select Case TypeName
 Case GlobDataType.Collection
 Set Items = Nothing
 Set Items = New Collection
 Case GlobDataType.dictionary
 Set Items = Nothing
 Set Items = CreateObject("scripting.dictionary")
 Case GlobDataType.StringArray
 Items = ""
 Case GlobDataType.ArrayList
 Set Items = Nothing
 Set Items = CreateObject("System.Collections.ArrayList")
 Case Else
 Set Items = Nothing
 Set Items = CreateObject("scripting.dictionary")
 End Select
End Property

Public Function GetTypeName() As String
 GetTypeName = TypeName(Items)
End Function


Private Function base(ByRef url As String, Optional ByRef key As String = "") As String
 Dim baseUrl As String
 Dim min As Long
 Dim keystr As String
 
 If Left$(url, 2) <> "\\" And Left$(url, 1) = "\" Then url = Mid$(url, 2, Len(url) - 1)
 
 If url <> "" Then
 min = 2000
 If InStr(url, "?") And min > InStr(url, "?") Then min = InStr(url, "?")
 If InStr(url, "*") And min > InStr(url, "*") Then min = InStr(url, "*")
 If InStr(url, "[") And min > InStr(url, "[") Then min = InStr(url, "[")
 If InStr(url, "{") And min > InStr(url, "{") Then min = InStr(url, "{")
 If InStr(url, "]") And min > InStr(url, "]") Then min = InStr(url, "]")
 If InStr(url, "}") And min > InStr(url, "}") Then min = InStr(url, "}")
 If min < 2000 Then
 keystr = Left$(Left$(url, min - 1), InStrRev(Left$(url, min - 1), "\"))
 baseUrl = FSO.GetAbsolutePathName(keystr)
 key = Replace$(url, keystr, "")
 Else
 baseUrl = FSO.GetAbsolutePathName(url)
 key = ""
 End If
 If FSO.FolderExists(baseUrl) = True Then
 url = baseUrl
 base = baseUrl
 Else
 url = ""
 base = ""
 End If
 Else
 url = ""
 key = ""
 base = ""
 End If
End Function

Public Function iGlob(Optional ByVal url As String = "") As Variant

 Dim key As String
 key = ""
 Call base(url, key)
 Me.Clear
 Call subSearch(url, key, 0)
 If IsObject(Me.GetItems) = True Then
 Set iGlob = Me.GetItems
 Else
 iGlob = Me.GetItems
 End If

End Function

Public Function Glob(Optional ByVal url As String = "") As Object

 With New Glob
 .SetType = dictionary
 Set Glob = .iGlob(url)
 End With

End Function

Public Function GlobFolder(Optional ByVal url As String = "") As Object

 Dim item As Variant
 Dim List As Object
 Set List = CreateObject("scripting.dictionary")
 With New Glob
 .SetType = Collection
 For Each item In Me.iGlob(url)
 If TypeName(item) = "File" Then
 If List.Exists(item.ParentFolder) = False Then
 List.Add item.ParentFolder, item.ParentFolder
 End If
 Else
 If List.Exists(item.path) = False Then
 List.Add item.path, item.path
 End If
 End If
 Next
 End With
 Set GlobFolder = List
 Set List = Nothing

End Function

Private Function subSearch(ByVal baseUrl As String, ByVal key As String, Optional ByVal level As Long = 0) As String

 Dim keyArr As Variant
 Dim folder As Variant
 Dim File As Variant
 
 keyArr = Split(key, "\")
 
 If UBound(keyArr) > level Then
 
 If keyArr(level) = "**" Then
 Call recursive(baseUrl, key, level + 1)
 ElseIf keyArr(level) Like "{*}" Then
 
 For Each folder In FSO.GetFolder(baseUrl).SubFolders
 If folder.name Like keyArr(level) Then
 Call subSearch(baseUrl & "\" & folder.name, key, level + 1)
 End If
 Next
 Call subSearch(baseUrl, key, level + 1)
 
 Else
 
 For Each folder In FSO.GetFolder(baseUrl).SubFolders
 If folder.name Like keyArr(level) Then
 Call subSearch(baseUrl & "\" & folder.name, key, level + 1)
 End If
 Next
 
 End If
 
 Else

 If keyArr(level) = "" Then
 
 If FSO.FolderExists(baseUrl) = True Then
 Me.AddItem baseUrl, FSO.GetFolder(baseUrl)
 End If
 
 Else

 For Each File In FSO.GetFolder(baseUrl).Files
 If File.name Like keyArr(level) Then
 Me.AddItem File, File
 End If
 Next
 
 End If
 
 End If
 
 

End Function

Private Function recursive(ByVal baseUrl As String, ByVal key As String, Optional ByVal level As Long = 0) As String
 
 Dim folder As Variant
 Dim keyArr As Variant
 Dim File As Variant
 
 keyArr = Split(key, "\")
 
 If UBound(keyArr) > level Then
 
 For Each folder In FSO.GetFolder(baseUrl).SubFolders
 If folder.name Like keyArr(level) Then
 Call subSearch(baseUrl & "\" & folder.name, key, level + 1)
 ElseIf "{" & folder.name & "}" Like keyArr(level) Then
 Call subSearch(baseUrl, key, level)
 Else
 Call recursive(baseUrl & "\" & folder.name, key, level)
 End If
 Next

 Else
 For Each folder In FSO.GetFolder(baseUrl).SubFolders
 Call recursive(baseUrl & "\" & folder.name, key, level)
 Next
 For Each File In FSO.GetFolder(baseUrl).Files
 If File.name Like keyArr(level) Then
 Me.AddItem File, File
 End If
 Next
 End If
 
End Function

```


# 今後の課題
- 特殊文字のエスケープ、正規表現での条件指定を実装する。
- `\**\**\`と入力したときの動作の検証が出来ていない
- 出力形式に配列(Array)を実装（速度比較のため）

# 利用されるみなさまへ
- デバッグがしきれていないため、動作に不具合があれば見直ししますので、 
情報共有頂けると幸いです。よろしくお願いいたします。

# 参考サイト
- [Pythonで条件を満たすパスの一覧を再帰的に取得するglobの使い方](https://note.nkmk.me/python-glob-usage/)

>
 - [x] 長さ0文字以上の任意の文字列: *
 - [x] 任意の一文字: ?
 - [x] 特定の一文字: []
 - [ ] ~~特殊文字のエスケープ~~
 - [x] 再帰的に取得: ~~引数recursive~~ → 引数指定せず使用可能に
 - [x] ファイル名のみ取得
 - [x] ディレクトリ名のみ取得
 - [ ] ~~正規表現で条件指定~~
 - [x] イテレータで一覧を取得: iglob()

- [glob --- Unix 形式のパス名のパターン展開](https://docs.python.org/ja/3/library/glob.html)
- [Excel VBAで使える可変長なコレクションまとめ](https://qiita.com/minoru-nagasawa/items/fcd317fa58c2372f681d)

>
 - [x] Collection
 - [x] Dictionary
 - [x] ArrayList
 - [ ] ~~SortedList~~ 
 ※処理速度比較用に実装

- [【VBA入門】Like演算子(ワイルドカード、エスケープ、否定)](https://www.sejuku.net/blog/33810)

>
### ワイルドカード
|文字	|説明|
|:-----:|:--:|
|?	|任意の1文字|
|*	|0文字以上の文字|
|#	|0～9の半角数字|
|[charlist]	|charlistに含まれる全角または半角の1文字|
|[!charlist]	|charlistに含まれない全角または半角の1文字|

VBAでPythonのGlob方式でファイルを検索するためのクラスを作成してみた

## 経緯
簡易的なウェブアプリを作成する中で、意外と[Cloud9](https://c9.io)から[Heroku](https://jp.heroku.com/home)へのpushが面倒だったので、Cloud9のbash上から呼び出しやすい用に1行にまとめてみた。
本格的な開発をしている訳ではないので、全ファイル一括で、コミットのコメントも`test`になっている等適当に設定されているためご注意を・・・。
詳しいgitコマンドは[【Git】基本コマンド
Git](https://qiita.com/konweb/items/621722f67fdd8f86a017)が分かりやすかった。

## 実行コマンド

```php
git add . && git commit -m "test" && git push heroku master
```


<h2 data-sourcepos="1:1-1:9">
<a href="#%E7%B5%8C%E7%B7%AF"></a>経緯</h2>
簡易的なウェブアプリを作成する中で、意外と<a href="https://c9.io" rel="nofollow noopener" target="_blank">Cloud9</a>から<a href="https://jp.heroku.com/home" rel="nofollow noopener" target="_blank">Heroku</a>へのpushが面倒だったので、Cloud9のbash上から呼び出しやすい用に1行にまとめてみた。 
本格的な開発をしている訳ではないので、全ファイル一括で、コミットのコメントも<code>test</code>になっている等適当に設定されているためご注意を・・・。 
詳しいgitコマンドは<a href="https://qiita.com/konweb/items/621722f67fdd8f86a017" id="reference-d35419644121a70f4a8a">【Git】基本コマンド 
Git</a>が分かりやすかった。
<h2 data-sourcepos="7:1-7:21">
<a href="#%E5%AE%9F%E8%A1%8C%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89"></a>実行コマンド</h2>
<div class="code-frame" data-lang="php" data-sourcepos="9:1-11:3"><div class="highlight"><pre><code>git add . &amp;&amp; git commit -m "test" &amp;&amp; git push heroku master
</code></pre></div></div>

My Content

Qiita Posts

Zenn Posts