パスからファイル名を取得する 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、パスからファイル名を取得することが可能です。この機能を使えば、簡単に、アプリケーション側で複数のファイル情報をリストする場合などで、同じパス名の羅列を行いたくない場合などに活用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、リストボックスコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━┓ ┃ListBox1 ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━┛２．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 フォームの宣言部に、次のコードを記述します。 Imports System.IO さらに、次のコードを記述します。 Dim MjstrPicPath As String Private Sub Form1_DragDrop(ByVal sender As Object, _ ByVal e As System.Windows.Forms.DragEventArgs) _ Handles MyBase.DragDrop MjstrPicPath = e.Data.GetData(DataFormats.FileDrop)(0) If Dir(MjstrPicPath) <> "" Then 'ファイルの一覧に追加 ListBox1.Items.Add( _ Path.GetFileName(MjstrPicPath)) End If End Sub Private Sub Form1_DragEnter(ByVal sender As Object, _ ByVal e As System.Windows.Forms.DragEventArgs) _ Handles MyBase.DragEnter '関連連づけの確認をしています。 'この場合、ドラッグアンドドロップの形式であるかどうか？ If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'ドロップ効果を取得 e.Effect = DragDropEffects.Copy Else 'ドロップ効果を破棄 e.Effect = DragDropEffects.None End If End Sub Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.AllowDrop = True End Sub３．ビルドして実行します。４．適当なファイル（例えばテキストファイル）などを フォームにドラッグアンドドロップでドロップします。５．フォームに表示された リストボックスに、ドラッグアンドドロップした ファイルのパスに含まれるファイル名が表示されます。-----------VB.NETコーディングここまで-------------------本サンプルでは、エクスプローラ等から、ファイルのドラッグアンドドロップの操作でファイルのパスを受け取っています。Path.GetFileName(MjstrPicPath)でパスからファイル名取得を行っています。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
