Für 32Bit und 64Bit Office Versionen
Problemstellung:
Wie kann ich bei Bedarf ermitteln ob der String einen Backslash am Ende hat und diesen bei
Bedarf setzen oder entfernen?
Public Function BackSlash(strPath As String, _ Optional fModus As Boolean = True) As String '******************************************* 'Name: BackSlash (Function) 'Purpose: setzt oder entfernt einen Backslash 'Author: Thomas Keßler 'Date: Januar 26, 2003, 12:40:38 'Inputs: strPath=Pfad, fModus= True (setzen Backslash), ' False (entfernen Backslash) 'Output: '******************************************* If fModus = True Then If Right(strPath, 1) = "\" Then BackSlash = strPath Else BackSlash = strPath & "\" End If Else If Right(strPath, 1) = "\" BackSlash = Left(strPath, Len(strPath) - 1) Else BackSlash = strPath End If End If End Function
Aufruf:
Dim x As String x = BackSlash("C:\Test")
würde an den Pfad "C:\Test" den Backslash anhängen und das Ergebnis wäre x = C:\Test\
Dim x As String x = BackSlash("C:\Test\User\",False)
würde vom Pfad "C:\Test\User\" den Backslash entfernen und das Ergebnis wäre x = C:\Test\User
Dim x As String x = BackSlash("C:\Test")
würde an den Pfad "C:\Test" den Backslash anhängen und das Ergebnis wäre x = C:\Test\
Dim x As String x = BackSlash("C:\Test\User\",False)
würde vom Pfad "C:\Test\User\" den Backslash entfernen und das Ergebnis wäre x = C:\Test\User
Ähnliche Artikel