'Dieser Code dient als Beispiel, wie man einen häufig verwendeten Datensatz als
'Variable deklariert
'Besonders Praktisch, wenn die Daten aus einer Datei oder Dantenbank ausgelesen wurden
'und/oder vielen Abläufen zur Verfügung gestellt werden sollen.
Dim ProgrammPfad As String 'in diese Variable kommt der Pfad des Programms
Dim Exist As String 'Variable um zu prüfen ob eine Datei existiert
Dim Nachricht As String 'enthält den dynamischen Text für eine MessageBox
Dim Slash As Boolean 'Variable um mitzuteilen, das das Programm in einem Verzeichniss liegt
'kann nur falsch oder wahr beinhalten und enthält immer Falsch
'bis der Code ihn auf Wahr umstellt
Private Sub Form_Load()
'jetzt prüfen wir, ob das Programm in einem Verzeichniss liegt
'im eine eventuelle Textdatei aus diesem öffnen zu können
Exist = Dir(App.Path & App.EXEName & ".exe")
If Exist = "" Then 'in disem Fall liegt das Programm in einem Verzeichniss
ProgrammPfad = App.Path & "\" 'die Variable enthält jetzt den Pfad des Programms mit \ am Ende
Slash = True
Else 'in disem Fall liegt das Programm direkt auf einem Laufwerk
ProgrammPfad = App.Path 'die Variable enthält jetzt den Pfad des Programms ohne \ am Ende
Slash = False
End If
If Slash = True Then
'vbcrlf = Zeilenumbruch, ist kumulativ
Nachricht = "Der Programmpfad enthält einen ''\''." & vbCrLf & _
"Das Programm liegt in einem Verzeichniss."
Else
Nachricht = "Der Programmpfad enthält keinen ''\''." & vbCrLf & _
"Das Programm liegt direkt auf dem Laufwerk."
End If
'jetzt fügen wir noch den Pfad in die Nachricht ein (zwei Zeilen unter der Ursprungsnachricht)
Nachricht = Nachricht & vbCrLf & vbCrLf & "Programmverzeichniss: " & ProgrammPfad
MsgBox Nachricht 'Nachricht anzeigen
End Sub