' 作業ディレクトリはドラッグ・アンド・ドロップ

Dim dir

If WScript.Arguments.Count > 0 Then

    dir = WScript.Arguments.Item(0)

End If

If dir = "" Then

    msg = "パスがないです。ドラッグ・アンド・ドロップしてください"

Else

    ' 一時バッファ用辞書

    Dim fs,tempDic

    Set tempDic = CreateObject("Scripting.Dictionary")

    Set fs = CreateObject("scripting.Filesystemobject")

    Call ChildPathget(dir)

    For Each key In tempDic

        Call Makegitkeep(tempDic.Item(key))

    Next

    Set fs = Nothing

    Set tempDic = Nothing

    msg = "完了"

End If


msgbox msg

'//==================================================================================

'// 関数  ：空フォルダのパスを辞書にいれる

'//==================================================================================

Private Sub ChildPathget(pdir)

    Dim subF,SubFolder

    Set SubFolder = fs.GetFolder(pdir).SubFolders

    Set wFiles = fs.GetFolder(pdir).Files

    If SubFolder.Count > 0 Then

        For Each subF In SubFolder

            ' 子供がいる時は再帰

            Call ChildPathget(subF.Path)

        Next

    Else

        ' 子供が居なくてファイルもない時は自分

        If wFiles.Count = 0 Then

            Call tempDic.Add(tempDic.Count,pdir)

        End If

    End If

    Set SubFolder = Nothing

    Set wFiles =Nothing

End Sub

'//==================================================================================

'// 関数  ：gitkeep作成

'//==================================================================================

Private Sub Makegitkeep(wdir)

    Set obj = CreateObject("Scripting.FileSystemObject")

    Set mgit = obj.openTextFile(wdir &"/.gitkeep",8,True)

    Set obj = Nothing

    Set mgit = Nothing

End Sub