Microsoft Access Club > Access一日一見 >このページ >次頁 <前項  サイト内検索


フォルダーを新規作成するプロシージャ - Microsoft Scripting Runtime



Accessからフォルダー操作を行い、新規フォルダーを作成したい時がありますね。このような時も、簡単に実現できる方法をご紹介します。ご多分に漏れずこれも、Microsoft Scripting Runtime ライブラリ を利用します。

参照設定

Microsoft Scripting Runtime ライブラリは外部ライブラリーのため、下記のようにVBE画面から 参照設定 で利用可能な状態に 設定します。

・参照設定ライブラリ設定

サンプルプロシージャの作成

何れでも利用できるようにFunctionプロシージャを作成します。

'参照設定で「Microsoft Scripting Runtime」にチェックを入れて下さい。
'新しいフォルダーを作成することができます。

Function SamplePro()

    Dim Fso As New FileSystemObject
    Dim Fldr As Folder
    Dim varFldrName As Variant
    
    varFldrName = InputBox("作成するフォルダー名を入力して下さい", "C:\Sample")
    Fso.CreateFolder (varFldrName)
    MsgBox varFldrName & " を作成しました。"

End Function
実行結果

プロシージャをイミディエイトウィンドウで実行すると、下記のようにダイアログが表示されます。

  • 下記の事例では、CドライブにSampleフォルダーが存在していなければエラーとなります。

エラー処理を組み込んだプロシージャ

参考までに、エラー処理を組み込んだプロシージャは下記のようになります。

Function SamplePro()

On Error GoTo Err発生

    Dim Fso As New FileSystemObject
    Dim Fldr As Folder
    Dim varFldrName As Variant
    
    varFldrName = InputBox("作成するフォルダー名を入力して下さい。", "C:\Sample")
    
    'InputBoxをキャンセルした場合。
    If varFldrName = "" Then MsgBox "中止しました。": End
    Fso.CreateFolder (varFldrName)
    
    MsgBox varFldrName & " を作成しました。"
    
Exit Function

Err発生:

    MsgBox "予期せぬエラーが発生しました。" & vbNewLine & _
            "フォルダー名: " & varFldrName & vbNewLine & _
            Err.Number & vbNewLine & _
            Err.Description, vbOKOnly, "管理者"
    End
    

End Function
実行結果

プロシージャをイミディエイトウィンドウで実行すると、下記のようにダイアログが表示されます。

2003/09/16

ページの先頭へ 前ページへ戻る


フォルダーを新規作成するプロシージャ - Microsoft Scripting Runtime


-Microsoft Access Club-

cPanelコントロールパネルインストール済みサーバー、アメリカやヨーロッパ、パナマなど海外経験豊富な当社へお任せ下さい。
cPanelパネルのインストール済みレンタルサーバー
アメリカ、ヨーロッパ、パナマなど海外経験豊富な当社へお任せ。