2014-06-28から1日間の記事一覧

個人的業務用

Sub testsave() Dim bSaveFlg As Boolean Dim sShapeName As String Dim sSavePath As String Dim iCount As Integer Dim sPath As String sSavePath = "C:\test\" For Each c In Selection sShapeName = c.Name iCount = iCount + 1 sPath = sSavePath & St…

単体試験、結合試験時に役立つ(役立ってほしい)VBScript

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'エビデンスフォルダ作成用スクリプト ' '要適宜変更箇所:strDefFilePath(エビデンスフォルダを作成するためのトップディレクトリ) ' strCreateFolderPath(作成したい…