OpenOffice.info

Code: Alles auswählen

	REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	REM XX     Funktion : fncPathCorrected                 XX
	REM XX                                                 XX
	REM XX      Funktion beigesteuert von HHTiger          XX
	REM XX            am : 21.12.12                        XX
	REM XX                                                 XX
	REM XX      Ausgebaut mit der "os" Funktionalitaet     XX
	REM XX         von Balu am 28.12.12                    XX
	REM XX                                                 XX
	REM XX      Übergabe und Rückgabe : String             XX
	REM XX                                                 XX
	REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  
	Function fncPathCorrected(sPath as String) as String 'Function to ensure slash or backslash at the end of string

		Dim iPos as Integer
		Dim sLastCharacter as String
		Dim OS as Integer
		Dim sStrich as String
		Const sSlash = "/"
		Const sBackslash ="\"
       	
		sLastCharacter = Right(sPath,1)
       
		OS = GetGUIType()
       	
		Select Case OS
			Case 1 REM Windows
				sStrich = sBackslash
				iPos = InStr(sPath, sSlash)
			Case 2 REM Unix / MacOS
				sStrich = sSlash
				iPos = InStr(sPath, sBackslash)
		End Select
		
		If iPos > 0 Then 'Check for wrong path seperator
			MsgBox "Bitte den Pfad korrigieren: " & Chr$(13) & "Er darf nur '" & sStrich & "' enthalten." , 16, "Pfadfehler:"
			Exit Function
		End If

		If sLastCharacter <> sStrich Then 'End backslash or slash is missing
			sPath = sPath & sStrich
		End If

		fncPathCorrected = sPath   

	End Function

Code: Alles auswählen

			' Dateiname und Pfad ermitteln und Festlegen
            sDirectory = fncPathCorrected(objBlatt.getCellRangeByName("N3").String)
            If sDirectory = "" Then Exit Sub 'ERROR handling
            sZellwertN4 = objBlatt.getCellRangeByName("N4").String