REM Beispiel : DotNet Test ob eine bestimmte Datei existiert. REM DE : SharpDevelop Version 1.0 Build 33919.1129 REM Platform : Windows 98 Imports System Imports System.Windows.Forms Imports System.IO Imports Microsoft.VisualBasic.Strings Class MyApplication Shared Sub Main Dim AppPath As String = Application.StartUpPath If Microsoft.VisualBasic.Right(AppPath, 1) <> "\" Then AppPath = AppPath & "\" Dim Filename As String = AppPath & "test.txt" Dim blResult As Boolean blResult = FileExists(Filename) Select Case blResult Case True MessageBox.Show("Datei existiert : " & "[ " & blResult & " ]", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information) Case Else MessageBox.Show("Datei existiert nicht : " & "[ " & blResult & " ]", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information) End Select End Sub ' Shared Function FileExists(ByVal Filename As String) As Boolean Try If File.Exists(Filename) Then FileExists = True Else FileExists = False End If Catch ex As Exception MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Function End Class