ディレクトリ作成命令 MKDIR("D:\BAS\MAKI\CONT")を実行しようとして www.hi-ho.ne.jp/makoto_watanabe/FbEdit/tut4.htm の*.exeファイル所在地のディレクトリ名(パス名)取得ルーチンを使って、、、とやったけどディレクトリーが作成できず(-1)、 いろいろ試す結果に。 Function MakiMkdir(InDir As String) As Integer Dim pathname As String If (Right$(InDir,1)="/") then pathname=InDir elseIf (Right$(InDir,1)<>"\") then pathname=InDir Else pathname=Left$(InDir, Len(InDir)-1) End If Dim result As Integer = MkDir ( pathname ) MessageBox(TakaHWND,"Hello("+pathname+")ErrorCode ="+Str$(result )+"$$","Messagebox caption",MB_ICONINFORMATION) MakiMkdir=result End Function 結果は 'pathname="aaaaa": ' -1 '存在しないディレクトリAA内にAAAを作成できない 'pathname="/aa/aaa": ' -1 'pathname="\aa\aaa": ' -1 'pathname="\aa/aaa": ' -1 'pathname="/aa\aaa": ' -1 'pathname="\aaaaa": ' ルートディクトリに作成 'pathname="/aaaaa": ' ルートディクトリに作成
