用aspupload组件删除文件时，怎么知道该文件的大小？

[树_皮]

用aspupload组件删除文件时，怎么知道该文件的大小？

如现用aspupload组件删除 C:\aaa.text 的文件，但在删除前我想知道该 aaa.text 文件的大小，应该怎么写？

[nowgoo]

Dim oFSO, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.GetFile("C:\aaa.text")
oFile.Size 即为文件尺寸，以字节为单位

[树_皮]

用aspupload应该怎么写？下面我写不下去，谁帮一下
Set Upload = Server.CreateObject("Persits.Upload.1")
path=server.MapPath(c_Name)
'Upload.DeleteFile path
response.write "size="+____________________ -> 这里应该怎么写？

[ybfqlyq]

這個組件我沒用過耶。
不過應該也有那個SIZE吧。
看一下那個函數裡面有沒有SUB FILESIZE之類表示大小的了，
TRY:
upload.size

[树_皮]

呵，研究的半天终于有种办法可以知道，就共享给大家吧

Set Upload = Server.CreateObject("Persits.Upload.1")
path=server.MapPath(c_Name)
'Upload.DeleteFile path '--这里是删除文件
Set Dir = Upload.Directory(path)
For Each File in Dir
response.write "=="+cStr(File.Size)
Next