[marcoszorrilla]

Acabo de hacer una prueba con el que yo creía obsoleto comando interno del DOS y funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec( 'Subst J: E:\marcosweb' ,SW_SHOWNORMAL);
end;

Un Saludo.