【问题】关于……文件的

你觉得把一只大象装进一个小冰箱里行吗.

Sub SetFileSize(ByVal sFile As String, ByVal lSize As Long)
Dim hFile As Long
hFile = CreateFile(sFile, GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0&, OPEN_ALWAYS, 0, 0)
SetFilePointer hFile, lSize, 0, FILE_BEGIN
SetEndOfFile hFile
CloseHandle hFile
End Sub
常数自己加一下