フルパスがファイルかフォルダか判別する
Imports System.IO If GetAttr(FName) = FileAttribute.Directory Then 'フォルダなら TextBox1.Text = FName Else 'ファイルなら</p> 'ファイルの1つ上のフォルダのパスをテキストボックスに入れる。 TextBox1.Text = Path.GetDirectoryName(FName) End If
Imports System.IO If GetAttr(FName) = FileAttribute.Directory Then 'フォルダなら TextBox1.Text = FName Else 'ファイルなら</p> 'ファイルの1つ上のフォルダのパスをテキストボックスに入れる。 TextBox1.Text = Path.GetDirectoryName(FName) End If