116.将文件长度置零

'###############################################################

'函数作用：将文件长度置零

'###############################################################

Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long

Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long

Public Function auto_open()

    Dim ID As Long, FileName As String

    If MsgBox("是否要置为 0 长度?", 32 + vbYesNo, "提示") = vbNo Then Exit Function

    FileName = ThisWorkbook.FullName

    If GetAttr(FileName) And vbReadOnly <> 0 Then SetAttr FileName, vbNormal

    ID = lcreat(ThisWorkbook.FullName, 1)

    lclose ID

End Function