エクセル研究室−Excelの基本的な使い方、応用技を紹介

フォルダを作成する


フォルダを作成する



'デスクトップに「test」という名前のフォルダがなければフォルダを新規で作成します。

Sub Sample37()
'testフォルダの有無を確認
If Dir("C:\Users\Default\Desktop\test", vbDirectory) = "" Then
'フォルダを作成
MkDir "C:\Users\Default\Desktop\test"
End If
End Sub







エクセルVBAテクニック集トップ