ディレクトリの作成(VB)

キーワード:

CreateDirectory

サンプルコード:

'主な宣言
Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" ( _
    ByVal PathName As String, _
    ByVal Security As Long) As Long

Public Const ERROR_ALREADY_EXISTS As Long = 183

' ディレクトリの作成
Private Sub DoCreateDir()
	Dim bResult As Long

	bResult = CreateDirectory("c:\test", 0)

	If bResult = 0 Then
		MsgBox "エラー発生"
		If Err.LastDllError = ERROR_ALREADY_EXISTS Then
			MsgBox "既にディレクトリが存在している"
		End If
	Else
		MsgBox "成功"
	End If
End Sub



(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。