|
下記のようにフォルダを作るプログラムを作成しました。
一回目は正常にフォルダが作成されるのでいいのですが
二度目は既にフォルダが作成されている為にエラーが発生してしまいます。
既にフォルダが存在する場合はMkDirを行わないようにしたいのですが
よい方法はありませんでしょうか?
またsavePath変数にセットされたパスが正しいパス(パスとして使用できない文字等使用していないか)か判断させたいのですが何かいい方法はないでしょうか?
ご教授いただければ幸いです。
Dim savePath As String '保存先パス
Dim makeFolderPath As String '作成フォルダパス
Dim pathPosition As Integer 'パス位置
savePath = "d:\1\22\333\4444" '作成フォルダパスをセット
'保存先パスの最後が'\'ではない場合'\'付与
If "\" <> Right(savePath, 1) Then
savePath = savePath + "\"
End If
hierarchyCnt = 4
Do Until Len(savePath) < pathPosition
pathPosition = InStr(pathPosition, savePath, "\")
makeFolderPath = Left(savePath, pathPosition)
MkDir makeFolderPath 'フォルダ作成
pathPosition = pathPosition + 1
Loop
|
|