如何檢查文件大小？

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