ディレクトリを作成するには・・・？ (ID:83801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん、ありがとうございます。 CreateDirectory ()APIのByRef引数の型についてですが、以下のようにしてもうまくいきませんでした。 >宣言側がByVal X As Longの時: ByVal 0& を渡す 実際のソースは以下になります。 （標準モジュール） Public Declare Function CreateDirectory Lib "kernel32" _ Alias "CreateDirectoryA" (ByVal lpPathName As String, _ lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long '------------- Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type （イベントソース） 'DirPath（作成したいディレクトリとパス） DirPath = Text1.Text & "\" & Text2(I).Text & "\" Dim MODORITI As Long MODORITI = CreateDirectory(DirPath, 0&) 私はByRef型は使用していないように思うのですが・・・。 どうでしょう。