Vb6 如何检查文件大小？

使用VB6

我有不同大小的文本文件，因此我想删除filesize=0 kb的文件

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

---

需要vb6代码帮助

您可以使用该函数检查文件大小。

您可以使用FileLen函数。请参见此处：

尝试此功能：

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

Sub-DeleteZeroLengthFile（ByRef sFilePath作为字符串）
'输入：sFilePath文件名或要测试的文件的路径名。
“产出：
“输入/输出：
'错误：如果文件不存在、不可访问、已锁定或用户不可用，将引发错误
'没有权限。
如果FileLen（sFilePath）=0，则
杀死sFilePath
如果结束
端接头

为什么要使用vb6？遗留代码？