проблема с Getfilesize

[noob4ever]

Люди помогите вот засада, не работает код:
в модуле пишу:
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Public Declare Function CreateFile Lib "kernel32" (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

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


В коде окошка:
Public lngHandle As Long, fileSize As Long
Public lngLong As Long

Private Sub Комманда1_Click()
lngHandle = CreateFile("D:\track1.mp3", GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)

fileSize = GetFileSize(lngHandle, 0)
Метка1.Caption = fileSize
CloseHandle (filePointer)
End Sub

Не пойму что не так!

Выскакивает ошибка 453 при нажатии на кнопку,
что невозможно найти допуск в DLL CreateFile in kernel32!

[GSerg]

1. Объясни мне, в чём сакральный смысл применения именно этих функций при условии наличия встроенных?
2. Объясни мне смысл CloseHandle (filePointer)?
3. Объясни мне, почему ты используешь дебильный переведённый VB, само существование которого не должно было начаться?

[Viper]

Если попробовать поиспользовать функцию CreateFileA, то ошибка 453 пропадет, но скорее всего появится другая... Общая тупость кода правда от этого изменения не измениться

[noob4ever]

1. потому что ненаю других
2. не filePointer а lngHandle, описался
3. какой есть тем и пользуюсь

Мне просто надо узнать размер файла! поможите()

[GSerg]

1. А стоило бы книжку почитать.
3. А стоило бы нормальный поискать.

FileLen()

[Viper]

функцией FileLen не пробовал попользоваться?

[noob4ever]

функцией FileLen не пробовал попользоваться?

Ща попробую))

[Alexanbar]

Кстати, создай на досуге файлик размером гига 4 и посмотри, что будет.

[Vadim_001]

только чтоб совсем было красиво надо перед измерением размера проверить наличие файла

ChDrive "C:"
ChDir "C:\tmp"
If Len(Dir("ImyaFile.txt")) <> 0 Then
RazmerFile= FileLen("ImyaFile.txt")
End If

[keks-n]

Vadim_001
Ага... А он скрытый или системный...
Тогда уж Dir(filename, vbNormal Or vbHidden Or vbSystem Or vbReadOnly Or vbArchive)

[Vadim_001]

вот же народ
человеку просто надо было узнать размер файла
согласен, из-под VB скрытого не видно
академически идеально, но, ИМХО, на практике очень мало вариантов когда программы должна работать со скрытыми файлами. хотя извращения всегда были

[noob4ever]

спасибо разобрался!