having a particular folder as quick access driver

[alain.roger]

Hi,

I would like to know if there is a way to set few directories as they were "drives" so I can have a quick access to their contents without having to browse thru all their parents directories before ?

It would be great if they were displayed as they were "drives". I know I could use a net connection for that but I would like to have a different way.

In linux, we can pin them as prefered folders.
thx

[bobputnam]

https://home.csulb.edu/~murdock/subst.html
and
https://support.microsoft.com/en-us/windows/add-an-app-to-run-automatically-at-startup-in-windows-10-150da165-dcd9-7230-517b-cf3c295d89dd

[Dalai]

In linux, we can pin them as prefered folders.

You can do the same in TC via its directory hotlist (Ctrl+D), the button bar or the TC start menu.

You can also create substituted drives by executing

Code: Select all

subst S: C:\some\path

in a CMD window; replace drive letter and path as necessary. Be aware that these substitutions are specific to a user which means that if you run TC as administrator you won't be able to see and access drives made as a user (and vice versa). More information can be found, for example, here https://ss64.com/nt/subst.html

It's probably best to open a CMD from within TC to create or delete these substituted drives.

Regards
Dalai

[Fla$her]

2alain.roger
Why not use tabs with the "Locked, but directory changes allowed" option?
You can also use Directory menu (Ctrl+D).
If you need exactly drives, then I can offer my old MountDirUnderCursorToVirtualDrive.vbs:

Code: Select all

'———————————————————————— VBS ————————————————————————
' Mount the folder under the cursor to a virtual drive
' Parameters: %P%N
'—————————————————————————————————————————————————————
Option Explicit: Dim Dir, FSO, D: Dir = WSH.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Dir) Then
   For Each D in Split("D E F G H I J K L M N O P Q R S T U V W X Y Z")
      If Not FSO.DriveExists(D) Then
         CreateObject("WScript.Shell").Run "subst " & D & ": """ & Dir & """", 0
         Exit For
      End If
   Next
End If
Set FSO = Nothing

UnmountAllFolders.vbs:

Code: Select all

'——————— VBS ————————
' Unmount all folders
'————————————————————
CreateObject("WScript.Shell").Run "%ComSpec% /q/c for /f delims^=\ %d in ('subst') do @subst /d %d", 0