you need a reference to Microsoft Scripting Runtime

then something like:

Function DT(sPath As String) As String
Dim fso As New Scripting.FileSystemObject
Dim fsd As Scripting.Drive
Set fsd = fso.GetFolder(sPath).Drive
DT = Choose(fsd.DriveType + 1, _
"unknown", "removable", "fixed", "remote", _
"cdrom", "ramdisk")
End Function

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Julian Milano" wrote:

How can I test if the workbook's path is a local path or remote path
(like on another PC called, say, "\\JDMils\C\My Documents")?