first commit

READM.md

@@ -0,0 +1,5 @@
+# VB-dev
+
+VB,VBA,VBSに関する開発および検証を行うリポジトリ
+
+git:https://appj.pglikers.com/gitbucket/develop/VB-dev

docs/windows_cli.md

@@ -0,0 +1,44 @@
+
+## ファイル・フォルダ制御コマンド
+
+### 名前を変更
+
+```bat
+REN [ドライブ:][パス]ファイル名1 ファイル名2
+```
+
+
+### 確認
+
+フォルダを確認する
+
+```bat
+dir 
+```
+
+フォルダツリーを表示
+
+```bat
+tree 
+tree /f
+```
+
+`/f`:サブフォルダ確認
+
+### 削除
+
+フォルダの削除
+
+```bat
+rmdir
+:: ファイルとサブディレクトリ含めて
+rmdir /s
+```
+
+ファイルの削除
+
+```bat
+del "<filename>"
+::強制削除
+del /f "<filename>"
+```

scripts/MakeGitkeep.vbs

@@ -0,0 +1,55 @@
+    #MakeGitkeep.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