投稿日	： 2005/04/17(Sun) 22:45
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: フォルダの指定について

Option Explicit

Private DataFile As String

Private Sub Form_Load()
    DataFile = fMyPath & "testo.txt"
    Debug.Print DataFile
End Sub

Private Function fMyPath() As String
    'プログラム終了まで　MyPath　の内容を保持
    Static MyPath As String
    '途中でディレクトリ-が変更されても起動ディレクトリ-を確保
    If Len(MyPath) = 0& Then
        MyPath = App.Path         'ディレクトリ-を取得
        'ルートディレクトリーかの判断
        If Right$(MyPath, 1&) <> "\" Then
            MyPath = MyPath & "\"
        End If
    End If
    fMyPath = MyPath
End Function

★ - フォルダの指定について - てん 04/17-18:58No.2908
• Re: フォルダの指定について - 花ちゃん 04/17-19:41 No.2909
  • Re^2: フォルダの指定について - てん 04/17-21:00 No.2910
    • Re^3: フォルダの指定について - 花ちゃん 04/17-22:45 No.2911
      • Re^4: フォルダの指定について - てん 04/17-22:54 No.2912
    • Re^3: フォルダの指定について - LESIA 04/17-22:57 No.2913
      • Re^4: フォルダの指定について - LESIA 04/17-23:05 No.2914
        • Re^5: フォルダの指定について - てん 04/18-08:43 No.2915