表示だけファイル名にするには？ (ID:118545)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 .net初心者さん、ありがとうございます。 他のDir関数を止め、他のBBSに似たような物がありましたので そこに組み込んで見ましたが、どうもうまくいきません。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim TopMenu As New MenuItem Call CreateMenu(TopMenu, "C:\test") MainMenu1.MenuItems.Add(TopMenu) End Sub Public Sub CreateMenu(ByRef ParentMenu As MenuItem, ByVal Path As String) Dim addMenu As MenuItem = Nothing Dim addpath As MenuItem = Nothing Dim text As String = String.Empty For Each subDir As String In System.IO.Directory.GetDirectories(Path) text = String.Empty text = subDir.Substring(System.IO.Path.GetDirectoryName(subDir).Length) If text.StartsWith("\") = True Then text = text.Substring(1) addMenu = New MenuItem addMenu.Text = text AddHandler addMenu.Click, AddressOf MenuItem_Select CreateMenu(addMenu, subDir) Me.MenuItem1.MenuItems.Add(addMenu.CloneMenu) addMenu.Dispose() addMenu = Nothing Next For Each dirFile As String In System.IO.Directory.GetFiles(Path) text = String.Empty text = dirFile.Substring(System.IO.Path.GetDirectoryName(dirFile).Length) If text.StartsWith("\") = True Then text = text.Substring(1) addMenu = New MenuItem addMenu.Text = text AddHandler addMenu.Click, AddressOf MenuItem_Select Me.MenuItem1.MenuItems.Add(addMenu.CloneMenu) addMenu.Dispose() addMenu = Nothing Next End Sub Private Sub MenuItem_Select(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Text = DirectCast(sender, MenuItem).Text MsgBox(CType(sender, MyMenuItem).FullPath) End Sub End Class Public Class MyMenuItem Inherits System.Windows.Forms.MenuItem Public FullPath As String End Class addMenu.FullPathも使えず、このまま実行させてもフォルダ構造が が表示されず、全てのファイルが１つの行に一覧されてしまいます。