如何检查文件大小？

Question

使用VB6

我有不同大小的文本文件，所以我想删除filesize = 0 kb的文件。

如何制作一个用于删除0 kb文件的vb6代码。

需要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