Advertisement
Guest User

UpwardPath

a guest
Feb 20th, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.83 KB | None | 0 0
  1.  
  2. $s = "C:\Code_AutoIt\Bla\Blub\Blib\Blob\something.exe"
  3.  
  4. ConsoleWrite(_GetUpwardPath($s, 1) & ' @error: ' & @error & @CRLF)
  5. ConsoleWrite(_GetUpwardPath($s, 2) & ' @error: ' & @error & @CRLF)
  6. ConsoleWrite(_GetUpwardPath($s, 3) & ' @error: ' & @error & @CRLF)
  7. ConsoleWrite(_GetUpwardPath($s, 4) & ' @error: ' & @error & @CRLF)
  8. ConsoleWrite(_GetUpwardPath($s, 5) & ' @error: ' & @error & @CRLF)
  9. ConsoleWrite(_GetUpwardPath($s, 6) & ' @error: ' & @error & @CRLF)
  10.  
  11. Func _GetUpwardPath($_sFullPath, $_iCountUp)
  12.     Local $aFull = StringSplit($_sFullPath, '\')
  13.     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
  14.     Local $sPathUpFolder = ''
  15.     For $i = 1 To $aFull[0] -($_iCountUp +1)
  16.         $sPathUpFolder &= $aFull[$i] & '\'
  17.     Next
  18.     Return $sPathUpFolder
  19. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement