Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ConsoleWrite( FileExists(_GetUpwardPath($s, 1) & 'HELP') ? '"HELP" in einer Ebene höher' : 'KEIN "HELP" in einer Ebene höher'& @CRLF)
- ConsoleWrite( FileExists(_GetUpwardPath($s, 2) & 'HELP') ? '"HELP" in zwei Ebenen höher' : 'KEIN "HELP" in zwei Ebenen höher'& @CRLF)
- ConsoleWrite( FileExists(_GetUpwardPath($s, 3) & 'HELP') ? '"HELP" in drei Ebenen höher' : 'KEIN "HELP" in drei Ebenen höher'& @CRLF)
- ConsoleWrite( FileExists(_GetUpwardPath($s, 4) & 'HELP') ? '"HELP" in vier Ebenen höher' : 'KEIN "HELP" in vier Ebenen höher'& @CRLF)
- Func _GetUpwardPath($_sFullPath, $_iCountUp)
- Local $aFull = StringSplit($_sFullPath, '\')
- If $_iCountUp > ($aFull[0] -2) Then Return SetError(1,0,'') ; letzter Teil ist Datei selbst -> entfällt, Teil davor ist der aktuelle Ordner -> entfällt auch
- Local $sPathUpFolder = ''
- For $i = 1 To $aFull[0] -($_iCountUp +1)
- $sPathUpFolder &= $aFull[$i] & '\'
- Next
- Return $sPathUpFolder
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement