'Beispiel: VB .Net - Test ob es sich um eine Datei oder um ein Verzeichnis handelt 'Hinweis : Das zu prüfende Verzeichnis oder die zu prüfende Datei müssen vorhanden sein. ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.IO Namespace VBDotNet_PrüfenObEsSichUmEinVerzeichnisOderEineDateiHandelt Public Class MainForm Inherits System.Windows.Forms.Form Private button1 As System.Windows.Forms.Button Private textBox1 As System.Windows.Forms.TextBox Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.textBox1 = New System.Windows.Forms.TextBox Me.button1 = New System.Windows.Forms.Button Me.SuspendLayout ' 'textBox1 ' Me.textBox1.Location = New System.Drawing.Point(8, 48) Me.textBox1.Name = "textBox1" Me.textBox1.Size = New System.Drawing.Size(280, 20) Me.textBox1.TabIndex = 1 Me.textBox1.Text = "c:\test\" ' 'button1 ' Me.button1.Location = New System.Drawing.Point(8, 8) Me.button1.Name = "button1" Me.button1.Size = New System.Drawing.Size(280, 32) Me.button1.TabIndex = 0 Me.button1.Text = "&Test" AddHandler Me.button1.Click, AddressOf Me.Button1Click ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 85) Me.Controls.Add(Me.textBox1) Me.Controls.Add(Me.button1) Me.Name = "MainForm" Me.Text = "Testform <Test ob es sich um eine Datei oder um ein Verzeichnis handelt>" Me.ResumeLayout(false) End Sub #End Region Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Dim Result As Boolean = IsFileOrDirectory(textBox1.Text) Select Case Result Case True MessageBox.Show("Es handelt sich um eine Datei", "Info") Case Else MessageBox.Show("Es handelt sich um ein Verzeichnis", "Info") End Select End Sub Private Function IsFileOrDirectory(ByVal Path As String) As Boolean Try Dim fi As FileInfo = New FileInfo(Path) If Not fi Is Nothing Then If (fi.Attributes And FileAttributes.Directory) = 0 Then 'Es handelt sich um eine Datei Return True Else 'Es handelt sich um ein Verzeichnis Return False End If End If Catch ex As Exception MessageBox.Show(ex.Message, "Info") End Try End Function End Class End Namespace