趣味プログラミングblog

---

Option Explicit

'C:\Users\oiran\Documents\VBA\LOG\SysLog

Sub ★フォルダがなければ作る(Path As String)
With CreateObject("Scripting.FileSystemObject")
Dim tmp, j As Long, strDir As String
tmp = Split(Path, "\")
For j = 0 To UBound(tmp)
If j = 0 Then
strDir = strDir & tmp(j) & "\"
Else
strDir = strDir & tmp(j) & "\"
If .FolderExists(strDir) Then
'あればなにもしない
Else 'なければ作る
.CreateFolder strDir
End If
End If
Next j
End With
End Sub

Function ★MyDocumentのパスを取得()
With CreateObject("WScript.Shell")
★MyDocumentのパスを取得 = .SpecialFolders("MyDocuments") 'MyDocuments, DeskTop,
End With
End Function
Function ★DeskTopのパスを取得()
With CreateObject("WScript.Shell")
★DeskTopのパスを取得 = .SpecialFolders("DeskTop") 'MyDocuments, DeskTop,
End With
End Function

Sub test()
Dim pPath As String: pPath = ★MyDocumentのパスを取得()
Dim Path As String: Path = pPath & "\VBA\LOG\SysLog"
Debug.Print Path
Call ★フォルダがなければ作る(Path)

End Sub