Folderオブジェクト・パス等の取得
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
ドライブ名・ファイル名・Folderオブジェクト・パス等の取得　　　　　(256)
まず、参照設定をしておいて下さい。
そして Form に Command1を配列で４個とLabel1を貼り付けて Sample.txt を準備しておいて下
さい。
　 Option Explicit　　 'SampleNo=256　WindowsXP VB6.0(SP5) 2003.02.22

Private Sub Command1_Click(Index As Integer)
　　Dim Fso　　 As New FileSystemObject
　　Dim FsoFile As File
　　Select Case Index

　　　　Case 0　'ファイル・フォルダーが格納されているドライブ名を取得
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "このファイルは " & FsoFile.Drive & _
　　　　　　　　　　　　　　　　　　　　　　" ドライブにあります"
　　　　　　'結果：このファイルは C: ドライブにありますす

　　　　Case 1　'指定されたファイル又はフォルダーの名前を設定・取得
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "このファイルは " & FsoFile.Name & _
　　　　　　　　　　　　　　　　　　　　　　" です。"
　　　　　　'結果：このファイルは sample.txt です。

　　　　Case 2　'指定されたファイルまたはフォルダーが格納されている
　　　　　　　　'フォルダーを表す Folder オブジェクトを取得
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "このファイルは[" & FsoFile.ParentFolder & _
　　　　　　　　　　　　　　　　　　　　　　"]フォルダーにあります"
　　　　　　'結果：このファイルは[C:\VBRescu1\256]フォルダーにあります

　　　　Case 3　'ファイル、フォルダー、またはドライブのパスを取得
　　　　　　Set FsoFile = Fso.GetFile("c:Sample.txt")
　　　　　　Label1.Caption = "このファイルのパスは[" & FsoFile.Path & _
　　　　　　　　　　　　　　　　　　　　　　"]です。"
　　　　　　'結果：このファイルのパスは[C:\VBRescu1\256\sample.txt]です

　　End Select
　　Set FsoFile = Nothing
End Sub

　
詳しい使い方等はヘルプを参照して下さい。
　　　　　　






2003/02/27