Что происходит при создании файла???

[MadNike]

Гуру помогите!!!!!!!!!
Всю свою сознательную жизнь на VB я создавал файлы приблизительно таким образом:

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

Open "C:\TESTFILE.DAT" For Output As #1
Print #1, "This is a test"
Close #1


Но сейчас, устроившись на новое место работы, я столкнулся с РЕАЛЬНОЙ проблемой. Этот код выдает ошибку 53 'File not found'.
Я сломал всю свою больную голову, голову сисадмина и головы всех коллег и друзей мало-мальски понимающих в вопросе. Но к сожалению никаого результата это не дало.
Помогите пожалуйста мне решить эту проблему.
Заранее благодарен.

[KDima]

Чё? А другие программы могут создавать/писать файл C:\TESTFILE.DAT?

[Jenizix]

А может нету прав для записи в корень C:\ ???

[KDima]

А может нету прав для записи в корень C:\ ???

Тык админа уже задолбали!

[alibek]

Не создается именно файл TESTFILE.DAT? Или любой файл в корне? Или любой файл в любом месте? Какая операционка, какая файоловая система?

[FaKk2]

Нда, хорошо бы сделать то что alibek сказал. Должно прояснить situation.

[MadNike]

Сорри за задержку. Просто в выходные доступа в инет не имею.
Проясняю situation:
1. Не создается любой файл в любом месте (даже в сети).
2. ОС XP ENG SP2 filesystem: NTFS
3. По поводу доступа. Последнее, что сделал сисадмин - выдал мне права администратора. Не помогло ((

Опять ломаю голову. Буду благодарен любому разумному совету.

[alibek]

Хм... Глупость, конечно, но попробуй

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

N = FreeFile
Open "C:\TESTFILE.DAT" For Output As #N
Print #N, "This is a test"
Close #N


[Костя]

А почему бы не воспользоваться FSO?

[MadNike]

Попробовал!

Не помогло

Что характерно ф-ция FreeFile возвращает единицу.

Что делать - не знаю!!!!!! Чувствую себя эдаким юзером, у которого постоянно все ломается. Абыдно-да. И ведь за соседним столом стоит компьютер с такой же конфигурацией, и все нормально работает.

[Костя]

Что, fso.createtextfile("имя") не работает?

[alibek]

А файлы копируются с одной папки в другую?

[MadNike]

Alibek: Все нормально копируется. Могу даже создать файл TESTFILE.DAT где-нибудь в текстовом редакторе. Кстати- при этом Open работает, но при Print# выдает 'Bad File Mode'.

Костя: простите, но в 10:52 я еще не видел Вашего сообщения. Поэтому скромный вопрос: а что такое FSO?

[alibek]

Глюки VB?
Попробуй создать файл через API.

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

'This project needs a Common Dialog box, named CDBox.
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
    Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function SetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function SystemTimeToFileTime Lib "kernel32" (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'KPDTeam@Allapi.net
    Dim m_Date As Date, lngHandle As Long
    Dim udtFileTime As FILETIME
    Dim udtLocalTime As FILETIME
    Dim udtSystemTime As SYSTEMTIME
    m_Date = Format(Now, "DD-MM-YY")

    'Set the dialog's title
    CDBox.DialogTitle = "Choose a file ..."
    'Set the dialog's filter
    CDBox.Filter = "All Files (*.*)|*.*"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen

    udtSystemTime.wYear = Year(m_Date)
    udtSystemTime.wMonth = Month(m_Date)
    udtSystemTime.wDay = Day(m_Date)
    udtSystemTime.wDayOfWeek = WeekDay(m_Date) - 1
    udtSystemTime.wHour = Hour(m_Date)
    udtSystemTime.wMinute = Minute(m_Date)
    udtSystemTime.wSecond = Second(m_Date)
    udtSystemTime.wMilliseconds = 0

    ' convert system time to local time
    SystemTimeToFileTime udtSystemTime, udtLocalTime
    ' convert local time to GMT
    LocalFileTimeToFileTime udtLocalTime, udtFileTime
    ' open the file to get the filehandle
    lngHandle = CreateFile(CDBox.Filename, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
    ' change date/time property of the file
    SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
    ' close the handle
    CloseHandle lngHandle
    MsgBox "The date of the file '" + CDBox.Filename + "' has been changed to" + Str$(m_Date), vbInformation + vbOKOnly, App.Title
End Sub


[alibek]

Еще один вариант, корневой каталог (и остальные каталоги тоже) имеет атрибут "Read Only".

[Костя]

FSO - File System Object.

Dim fso as new FileSystemObject, a as file
set a = fso.CreateTextFile("имя)

Эт такая объектная модель. Не слишком удобная, но у меня однажды была подобная ошибка (когда я работал с vb.net), FSO выручил.

[MadNike]

Alibek: за API спасибо, но я к сожалению не имею опыта программирования API и разобраться в этом мне достаточно тяжело.

Костя: FSO действительно выручил, то есть задачу создания файлов я решил. Но проблема в том, что мне надо писать в файл не текстовые строки, а конкретные данные конкретного типа. Оператор Put в данном случае глючит так же как и Print#. Подскажите плз может есть какая нибудь модель для записи определенных типов данных, или придется свое клепать.

[Костя]

Честно говоря, не знаю. У меня такой задачи не стояло.

[skord]

Странно... у меня когда то переодически так бывало, но потом проходило... от чего тоже не знаю...
А может VB ***ый? Или другое чего нить ***ое?

[Sedge]

Так, просто подумалось...
1. Сервиспак на vb последний стоит?
2. Антивирусный монитор в режиме паранойи не висит?
3. VB не в режиме совместимости запускается?
4. Скомпиленный код тоже глючит?

[MadNike]

Sedge: Вот вот вот вот!!!!!!!! Именно антивирусный монитор и именно в режиме паранойи.

Спасибо огромное всем, кто поучаствовал в решении проблемы.