質問: コントロール値をフォルダ名にしたフォルダを作成できません。 access2000を使用している初級者です。 mkdir を使用して、フォルダを作成することまではできましたが、 コントロール値フォルダ名として、テーブルのデータに一つ一つ対応したフォルダを作成しようと思いましたがうまくいきません。 そもそも、mkdirではそのような作業は不可能なのでしょうか。 そうだとすれば他の方法があったら教えていただければ幸いです。
回答: mkdirというコマンド自体知りませんでしたが、サンプルを作成して確認してみたところ、 テーブルのデータに基づいてフォルダを作成することができました。 ・・・憶測ですが、親フォルダを指定し忘れたために、フォルダが作成できなかった、 ということはないでしょうか。 以下は、下記コントロールを持つフォームで、「テキスト1」のデータに基づいて フォルダを作成するコードです。 ・「テキスト1」 テーブルのデータを表示するテキストボックス ・「親フォルダ」 フォルダを作るドライブ/フォルダを指定するテキストボックス (「c:\」等を入力。なお、テーブルのデータが「c:\」等から始まっているなら 「call mkdir(strfolder)」は「call mkdir(テキスト1)」で構いません) ・「フォルダ作成」 コードを実行するためのコマンドボタン '~~~~~上記コマンドボタンのクリック時イベントに以下を貼り付け~~~~~ private sub フォルダ作成_click() on error goto エラー処理 dim strfolder as string 'メッセージでキャンセルを選択した場合は中止 if msgbox("フォルダを作成します。", vbokcancel, "確認") = vbcancel then goto 終了処理 '先頭レコードに移動 docmd.gotorecord , , acfirst 'レコードがなくなるまでループ処理 do until me.newrecord '「テキスト1」テキストボックスに文字列が保存されている場合はフォルダを作成 if nz(テキスト1, "") <> "" then strfolder = 親フォルダ & テキスト1 call mkdir(strfolder) end if '次のレコードに移動 docmd.gotorecord , , acnext loop msgbox "終了しました。" 終了処理: exit sub エラー処理: msgbox err & ":" & error$, , me.name & " フォルダ作成" resume 終了処理 end sub '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ・・・以上、参考までに。