Создание файла на ближайшем доступном диске.

[Гость]

Прошу помоч мне с такой штукой:
Нужно найти ближайший жёсткий диск, имеющийся в системе, на который можно производить запись и создать на нём файл.

Только не надо мне про то, что на диске Цэ надо делать, он всегда открыт для пользователя. Нифига подобного, бывают системы, где с Цэ только можно считать, а без прав администратора фиг чо сделаеш, но при этом есть серверный диск для каждого пользователя для его данных, вот его букву и надо найти.

[kif]

В модуле:

Код: Выделить всё


Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Function DriveType(Drive As String) As String
   Dim i As Long
   
   i = GetDriveType(Drive)
   
   Select Case i
      Case Is = 2
         DriveType = "FLOPPY"
      Case Is = 3
         DriveType = "HDD"
      Case Is = 5
         DriveType = "CD"
      Case Is = 4
         DriveType = "NETDISK"
      Case Is = 1
         DriveType = "NO"
   End Select
End Function


[alibek]

Независимо от того, насколько злобные администраторы настроили систему, ОС не может работать без временных файлов. А для этих временных файлов обычно имеется специальная папка, куда может записывать любой. API GetTempPath поможет тебе найти эту папку, а API GetTempFileName вдобавок еще и предложит свободное имя.

[kif]

Действительно, почему бы тебе не использовать твой профайл.

[Гость]

kif
Спасибо за код конечно, но функция, к сожалению, не везвращает "Можно ли на диск производить запись", но всё равно спасибо, пример пригодится. (Может я не прав?)

Насчёт временных файлов, у меня есть пример, когда такой папки нет, может быть и есть, но запись в неё производится только системными сервисами.

Насчёт использования профайла непонял.

[alibek]

Функции ПолучитьПервыйДрайвНаКоторыйМожноПроводитьЗапись в API нет. И я впервый раз слышу о системе, в которой подльзовательская учетная запись не может создавать временные файлы; такое возможно только на бесдисковых рабочих станциях. Возможно ты имеешь ввиду TEMP для системы, а не для юзера, они могут и различаться.

[FaKk2]

kif
Спасибо за код конечно, но функция, к сожалению, не везвращает "Можно ли на диск производить запись", но всё равно спасибо, пример пригодится. (Может я не прав?)
Насчёт использования профайла непонял.

Эхх Федя, Федя

Код: Выделить всё

On Error Goto Err
'тут пытаешься записать на диск

Exit Sub
Err:
select case Err.Number
Case 70:msgbox "Permission denied"
...
End Select


[RayShade]

Для возврата папки, куда кладутся временные файлы я пользуюсь

Код: Выделить всё

environ("TEMP")

или

Код: Выделить всё

environ("TMP")

Если охота найти профайл, то на NT+ есть

Код: Выделить всё

environ("userprofile")

Во все эти три папки юзер имеет право записи, так как они обычно располагаются ниже

Код: Выделить всё

environ("homepath")