Advertisement
Guest User

Help upward

a guest
Feb 20th, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.92 KB | None | 0 0
  1. ConsoleWrite( FileExists(_GetUpwardPath($s, 1) & 'HELP') ? '"HELP" in einer Ebene höher' : 'KEIN "HELP" in einer Ebene höher'& @CRLF)
  2. ConsoleWrite( FileExists(_GetUpwardPath($s, 2) & 'HELP') ? '"HELP" in zwei Ebenen höher' : 'KEIN "HELP" in zwei Ebenen höher'& @CRLF)
  3. ConsoleWrite( FileExists(_GetUpwardPath($s, 3) & 'HELP') ? '"HELP" in drei Ebenen höher' : 'KEIN "HELP" in drei Ebenen höher'& @CRLF)
  4. ConsoleWrite( FileExists(_GetUpwardPath($s, 4) & 'HELP') ? '"HELP" in vier Ebenen höher' : 'KEIN "HELP" in vier Ebenen höher'& @CRLF)
  5.  
  6. Func _GetUpwardPath($_sFullPath, $_iCountUp)
  7.     Local $aFull = StringSplit($_sFullPath, '\')
  8.     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
  9.     Local $sPathUpFolder = ''
  10.     For $i = 1 To $aFull[0] -($_iCountUp +1)
  11.         $sPathUpFolder &= $aFull[$i] & '\'
  12.     Next
  13.     Return $sPathUpFolder
  14. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement