ник: Силblч
хз, но сетевой или нет я так определял :)
Public Function fnDriveType(strDrive As String) As String
Dim objFSO As Object, drive As Object
On Error GoTo err123
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set drive = objFSO.GetDrive(strDrive)
fnDriveType = drive.RootFolder.Type
err123:
Set objFSO = Nothing
End Function
|
dt = LCase(fnDriveType(Left(CurrentDb.Properties(0), 3)))
If Not dt Like "*локальный*" And Not dt Like "*local*" Then '-- если запускается не с локального диска
MsgBox "Запуск приложения возможен только с локального диска" & vbNewLine & iDevelop, , "Ошибка"
Cancel = -1
Exit Sub
End If
|
может и тебя натолкнет? :)