Get Drive Letter

[Obviator]

i've been playing with my first script and have an issue i can't seem to find here. Script will be used to load fresh computers with software and updates not included in the image. Script will be run from a portable or flash drive and i need to ensure that i can get the drive name so the script will operate first time out of the chute no matter what the drive name is.

How do i go about getting the drive name (e.g.; E:, F:, whatever) prior to starting everything up?

Thanks,

Dave

[Varian]

Assuming you are referring to the Path from which the script is being run:

@ScriptDir = the full path of the script (e.g. F:\Scripts)

StringLeft(@ScriptDir, 2) = the Drive letter portion of the path from which the script is run

$FullPath = @ScriptDir
$DriveLetter = StringLeft(@ScriptDir, 2)
MsgBox(0, 'Path Info', 'The Script Directory is: ' & $FullPath & @LF & 'The Drive Letter is: ' & $DriveLetter)

Edited October 13, 2010 by Varian

[Stan099]

i've been playing with my first script and have an issue i can't seem to find here. Script will be used to load fresh computers with software and updates not included in the image. Script will be run from a portable or flash drive and i need to ensure that i can get the drive name so the script will operate first time out of the chute no matter what the drive name is.

How do i go about getting the drive name (e.g.; E:, F:, whatever) prior to starting everything up?

Thanks,

Dave

I had the same problem and used the following method : put a file with a very unlikelt name on your key and try to find it ...

$var = DriveGetDrive( "all" )
    If NOT @error Then
        For $i = 1 to $var[0]
            FileChangeDir ( $var[$i] )
            $search=FileFindFirstFile ( "wxzrtybdpq_fdtehsdt.txt" ) ; Unlikely to be found elsewhere ...
            If $search = -1 Then
                FileClose($search)
            Else
                FileClose($search)
                $drive = $var[$i] ; Won your drive's name is there
                $i = $var[0]
            EndIf
        Next
        If $search = -1 Then
            MsgBox(48, "Clé absente", "La clé USB est absente !!! Veuillez la mettre et relancer le programme ...")
            Exit
        EndIf

    EndIf

Theare are surely better ways to do it ... That only my two cents.

EDIT : I was right about the better way : Varian solution is obviously better

Edited October 13, 2010 by Stan099

[BrewManNH]

If you run the script, compiled or not, from the root of the thumb drive you can use the relative path to point to the programs to install. For example, installs are in a folder called Installs, the program to install is program.exe, you'd use "@ScriptDir & "\Installs\Program.exe""

[Obviator]

That will work nicely Varian! And thanks for Your response too Stan099.

Thanks So Much

Dave