[.gitkeepを作る] bash版とvbs版

git-gitkeep

#!/bin/bash

if ! git rev-parse 2> /dev/null; then
  echo -e "\033[0;31mERROR\033[0;39m: This directory is not git repository \033[0;31m:(\033[0;39m"
  exit 1
fi

Seek() {
  for DIR in * ; do
    if [ -d "${DIR}" ]; then
      if [ -f "${DIR}/.gitkeep" ]; then
        echo  ".gitkeep already exists .gitkeep in `pwd`/${DIR}"
      elif [ -z "$(ls -A ${DIR})" ]; then 
        touch ${DIR}/.gitkeep
        echo  "Create .gitkeep in `pwd`/${DIR}"
      fi
      (cd "${DIR}"; Seek;)
    fi
  done
}

Seek;
echo -e "done!! \033[0;32m:)\033[0;39m"

gitkeep.vbs

' 作業ディレクトリはドラッグ・アンド・ドロップ
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