- Код: Выделить всё
Dim sTemp As String
sTemp = "C:\ttv1.tmp"
hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
в итоге "hNewFile = -1", а беру пример из справочника API
- Код: Выделить всё
Dim sTemp As String
sTemp = String(260, 0)
GetTempFileName "C:\", "KPD", 0, sTemp
sTemp = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1)
hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
возвращает "hNewFile = 1084"
В чем прикол?? Вся остальная часть кода не меняется. Даже после создания имени файла (sTemp), перед CreateFile меняю хоть одну букву в имени файла меняю, в "Locals Window", сразу "-1".
