1.[新しいプロジェクト]で ActiveX DLL を選択する。 2.プロパティウィンドウで、クラスモジュールのInstancingプロパティを6-GlobalMultiUse に変更して下さい。 3.クラスモジュールに Sub プロシージャ又は Function プロシージャを作成する。 テスト用に起動ディレクトリ取得用プロシージャとANSI(旧 Basic・シフトJIS)流文字列長を得るプロシージャを記入します。 Public Function fMyPath() As String 'プログラム終了まで MyPath の内容を保持 Static MyPath As String '途中でディレクトリ-が変更されても起動ディレクトリ-を確保 If Len(MyPath) = 0& Then MyPath = App.Path 'ディレクトリ-を取得 'ルートディレクトリかの判断 If