_FileGetDir

[cdkid]

Anywhoo, i got bored so i decided to make this. retrieves the directory of a given file.

Func _FileGetDir($sFile)
    Local $s, $i
    $s = ""
    If FileExists($sFile) Then
        $sFile = StringSplit($sFile, "\")
        For $i = 1 To $sFile[0] - 1
            If $i > 1 Then
                $s = $s & "\" & $sFile[$i]
            Else
                $s = $s & $sFile[$i]
            EndIf
        Next
        Return $s
    Else
        SetError(1)
        Return 0
    EndIf
EndFunc  ;==>_FileGetDir

I dont know if this already exists, but i couldnt find anything of the sort. I found this useful for using FileOpenDialogs, and using the previous directory.

~cdkid

[Xenobiologist]

Hi,

I think there are many ways to do something like that, but I like your way.

Maybe I can use it sometimes.

So long,

Mega

[cjconstantine]

Here's my go at it...

Func _FileGetDir($File)
    For $i = 1 To StringLen($File)
        If StringMid($File,$i,1) = "\" Then $Path_Len = $i
    Next
        
    $File = StringLeft($File,$Path_Len)
    Return($File)
EndFunc

Enjoy!

*EDIT* - snipped out the part for the UNC conversion ... makes the function a little smaller (changed the function name too).

Edited February 28, 2006 by cjconstantine

[Xenobiologist]

HI,

or just something I found elsewhere in the forum.

$path = "C:\folder 1\folder 2\autoit.exe"

$array = StringSplit($path, "\")
$path = StringTrimRight($path, StringLen($array[$array[0]]))
MsgBox(0,"Path", $path)

So long,

Mega

Edited February 27, 2006 by th.meger

[Jos]

_PathSplit

--------------------------------------------------------------------------------

Splits a path into the drive, directory, file name and file extension parts. An empty string is set if a part is missing.

#include <File.au3>

_PathSplit($szPath, ByRef $szDrive, ByRef $szDir, ByRef $szFName, ByRef $szExt)

[Xenobiologist]

Hi,

hmmh that is also cool. Then it could be something like:

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt, $path = "C:\folder 1\folder 2\autoit.exe"
$array = _PathSplit ($path, $szDrive, $szDir, $szFName, $szExt)
MsgBox(0, "Demo _PathSplit()", $array [1] & $array [2])

So long,

Mega

P.S.: But why do I have to declare all these variables? Dim $szDrive, $szDir, $szFName, $szExt? If only want to split a complete path given by $path = "C:\folder 1\folder 2\autoit.exe" ?

Anyway, nice to know function.