Problemstellung:
Für 32Bit und 64Bit Office Versionen
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\
würde vom Pfad "C:\Test\User\" den Backslash entfernen und das Ergebnis wäre x = C:\Test\User
würde an den Pfad "C:\Test" den Backslash anhängen und das Ergebnis wäre x = C:\Test\
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\User\",False)
Dim x As String x = BackSlash("C:\Test")
Dim x As String x = BackSlash("C:\Test\User\",False)
Ähnliche Artikel