Convert from UNC notation to Drive letter? (Views: 101)
Convert from UNC notation to Drive letter?
The function ExpandUNCFileName function converts a mapped path/file to UNC, but how can this process be reversed?
There is no simple function that would do the trick, you have to go through all existing 'remote' drives, look at their UNC name and compare them with the one you are interested in:
procedure TForm1.Button1Click(Sender: TObject);
YOURUNCFILENAME = '\\ISS\VOL1\ISS\SHARE\';
Drlist := TStringList.Create;
Filist := TStringList.Create;
for Drive := 'a' to 'z' do
case GetDriveType(PChar(Drive + ':\')) of
Filist.Add(expanduncfilename(Drive + ':\'));
I := Filist.indexof(YOURUNCFILENAME);
if I > -1 then
ShowMessage(YOURUNCFILENAME + 'Mapped to drive ' + Drlist[I]);
<< Back to main page