/* _______________________________________________________________________________ _______________________________________________________________________________ Title: Mount Mount any path as a drive with subst.exe _______________________________________________________________________________ _______________________________________________________________________________ License: (C) Copyright 2006, 2007, 2009, 2010 Tuncay This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . (see lgplv3.png) See the file COPYING.txt and COPYING.LESSER.txt for license and copying conditions. About: Introduction Any parameter enclosed between '[' and ']' are optional. Mount([SourcePath], [Mountpoint], [Options]) Returns on success mounted drive with ending backslash and on failure a string without content. If Mountpoint is not given, then it looks for first free drive otherwise existing SourcePath will be mounted to given Mountpoint. If SourcePath is not given, it defaults to WorkingDir. The SourcePath can contain wildcards ("*" and "?") and the relative directory dots ("." for current dir and ".." for one up dir). Any existing Mountpoint will be updated (first umount the old one, and then remounting the new one). Currently there is only one option used to unmount the drive. Mount_UnMount([Mountpoint], [Options]) Like Mount(), but without the need of SourcePath. Also the unmount option is here given over to Mount() always. Mount_GetMount([Path]) If the specified Path is a drive, the full real path is returned. If the Path is not given, first virtual drive will be get. Mount_GetMountPathes([Variable]) It gets all virtual drives and paths. The Variable will hold a list in following format: Drive . ">" . Path . "`n" The return contains the number of all virtual drives. Links: * Discussion: [http://www.autohotkey.com/forum/viewtopic.php?t=46226] * License: [http://www.gnu.org/licenses/lgpl-3.0.html] Date: 2010-03-05 Revision: 1.0 Developers: * Tuncay, (Author) License: GNU Lesser General Public License 3.0 or higher [http://www.gnu.org/licenses/lgpl-3.0.html] Category: FileSystem Type: Library About: Examples Example 1 > Mount() -> F: Calling Mount() without any parameter mounts current WorkingDir to first found free drive letter and returns it. Example 2 > FileSelectFolder, SourcePath, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}, 3, Select folder to mount > Mount(SourcePath, "x") -> X: Here SourcePath will be mounted to drive letter X, if it`s free. If the drive letter is not free and if its a virtual drive letter, then the drive (here "X:") will be unmounted and SourcePath will be mounted as the new one. Example 3 > Mount_UnMount() -> X: Calling Mount_UnMount() without any parameter unmounts the first founded virtual drive, mapped with Mount(). It returns the founded drive path (here "X:\"). Example 4 > MsgBox % Mount_GetMount() -> X: Calling Mount_GetMount() without any parameter gets the drive letter of first virtual drive letter (without backslash). But this slow. Example 5 > MsgBox % Mount_GetMount("x") -> D:\files\subdirectory Calling Mount_GetMount() with drive letter returns the real full path of mapped virtual drive (without backslash). But if the given drive letter does not exist or isn`t a mounted drive, then a void string is returned. Example 6 > Mount_GetMountPathes() -> 2 Calling Mount_GetMountPathes() will get number of mounted pathes and a string with all founded virtual drives. -> E:>C:/Windows -> F:>D:/Emulators/zsnes */ /* Public Function Mount Mounts with subst.exe any path to a Windows drive. 2007 by Tuncay */ Mount(SourcePath = "", Mountpoint = "", Options = "") { GoSub, SetOptions@Mount GoSub, SetMountPath@Mount If NOT Option?UnMount AND FileExist(Mount_GetMount(MountPath)) { Option?UnMount := True Option?Update := True } If Option?UnMount Command = subst %MountPath% /d Else { If (SourcePath = "") SourcePath = %A_WorkingDir% Else { Loop, %SourcePath%, 2 { SourcePath = %A_LoopFileLongPath% Break } } Command = subst %MountPath% "%SourcePath%" } If (NOT Option?UnMount AND NOT FileExist(MountPath . "\") AND FileExist(SourcePath)) OR (Option?UnMount AND FileExist(MountPath)) { RunWait, "%comspec%" /c %Command%,, Hide UseErrorLevel If ErrorLevel = ERROR { MountPath = ; Failed to launch subst.exe ErrorLevel = 2 } Else ErrorLevel = 0 } Else { MountPath = ErrorLevel = 1 } If Option?Update MountPath := Mount(SourcePath, Mountpoint) Return MountPath SetMountPath@Mount: If (Mountpoint = "") ; Search drive. { DriveGet, ActualDrives, List If NOT Option?UnMount ; Get first free drive. { FreeDriveLetters = CDEFGHIJKLMNOPQRSTUVWXYZ Loop, Parse, ActualDrives StringReplace, FreeDriveLetters,FreeDriveLetters,%A_LoopField% Loop, Parse, FreeDriveLetters { MountPath = %A_LoopField%: Break } } Else If Option?UnMount ; Get first subst.exe mounted drive. MountPath := Mount_GetMount() } Else If Mountpoint Is Alpha ; Add double colon on drive letter. MountPath = %Mountpoint%: Else ; Drive will be extracted from any path. SplitPath, MountPath,,,,, Mountpoint Return SetOptions@Mount: ; Default settings Option?UnMount := False If NOT (Options = "") { CurrentStringCaseSense := A_StringCaseSense StringCaseSense, On If Options Contains -- { StringReplace, Options, Options,--unmount,-u } StringReplace, Options, Options,/,-, All ; Overwriting default settings. OptionsFoundList := "" ; For performance, not to loop if already founded ; and avoid dublicates. Loop, Parse, Options,-,%A_SPACE% { If A_LoopField In ,%A_SPACE% Continue ; Inner Loop for enabling the short style for grouping of options. Loop, Parse, A_LoopField { If InStr(OptionsFoundList, A_LoopField, True) Continue ; Option?UnMount ; 0=creates a virtual drive from given path (default) ; 1=deletes the given virtual drive mounted by subst.exe If InStr(A_LoopField, "u", True) { Option?UnMount := True OptionsFoundList .= A_LoopField Continue } } } StringCaseSense, %CurrentStringCaseSense% } Return } /* Public Function UnMount UnMounts a virtual drive mapped with subst.exe. 2006 by Tuncay */ Mount_UnMount(Mountpoint = "", Options = "") { Return Mount("", Mountpoint, "-u " . Options) } /* Public Function GetMountPathes Get a list of all virtual drives and real paths of them. Returns number of paths. Format: Drive . ">" . Path . "`n" 2007 by Tuncay */ Mount_GetMountPathes(ByRef pPathes) { Drive0 = 0 pPathes = TempFile = %A_Temp%\{D74BA6E8-2728-4FC6-8185-623EA7DAD412}_%A_Now%.~tmp Command = subst >"%TempFile%" RunWait, "%comspec%" /c %Command%,, Hide UseErrorLevel If ErrorLevel = ERROR ErrorLevel := 2 ; Failed to launch subst.exe Else { ErrorLevel = 0 ; Process all drive letters. Loop, Read, %TempFile% { StringMid, Drive, A_LoopReadLine, 1, 2 StringMid, Path, A_LoopReadLine, 9 Drive0++ pPathes .= Drive . ">" . Path . "`n" } } FileDelete, %TempFile% Return Drive0 } /* Public Function GetMount Converts virtual path mapped with subst.exe to real physical full path. 2007 by Tuncay */ Mount_GetMount(pPath = "") { If pPath pPath := SubStr(pPath, 1, 1) . ":" Else SplitPath, pPath,,,,, pPath TempFile = %A_Temp%\{D74BA6E8-2728-4FC6-8185-623EA7DAD412}_%A_Now%.~tmp Command = subst >"%TempFile%" RunWait, "%comspec%" /c %Command%,, Hide UseErrorLevel If ErrorLevel = ERROR ErrorLevel := 2 ; Failed to launch subst.exe Else { ErrorLevel = 0 If pPath { Loop, Read, %TempFile% { StringMid, MountDrive, A_LoopReadLine, 1, 2 If (pPath = MountDrive) { StringMid, MountPath, A_LoopReadLine, 9 Break } } } Else { ; Get first virtual drive. Loop, Read, %TempFile% { DriveGet, ActualDrives, List MountDrive := SubStr(A_LoopReadLine, 1, 1) If InStr(ActualDrives, MountDrive) { MountPath = %MountDrive%: Break } Else Continue } } } FileDelete, %TempFile% Return MountPath }