Как проверить размер файла?

Question

Использование VB6

У меня есть текстовый файл с разными размерами, поэтому я хочу удалить файл, где размер файла = 0 КБ.

Как создать код vb6 для удаления файлов 0 КБ.

Нужен vb6 код Справка

Answer 1

Вы можете использовать функцию FileLen , чтобы проверить размер файла.

Answer 2

Вы можете использовать функцию FileLen. Смотрите здесь: http://www.vbforums.com/showthread.php?t=498720

Answer 3

Попробуйте эту функцию:

Sub DeleteZeroLengthFile(ByRef sFilePath As String)
' Inputs:  sFilePath        Filename or path name of file to be tested.
' Outputs: <None>
' In/Outs: <None>
' Errors:  Will raise error if file doesn't exist, is inaccessible, is locked, or user
'          doesn't have permissions.

    If FileLen(sFilePath) = 0 Then
        Kill sFilePath
    End If

End Sub