vb如何利用GetFileSize来获得文件大小

vb来获得文件大小，有以下几种方式，其中GetFileSize也是其中一种：

1、利用GetFileSize来获得,需要先定义GetFileSize的api函数：

Private Declare Function GetFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long

Private Sub Command1_Click()

Dim a

a = GetFileSize("c:\1zip", ByVal 0&) '文件c:\1zip 根据情况修改

MsgBox a

End Sub

2、VB自带的FileLen(filename)，推荐此方式

Private Sub Command1_Click()

a = FileLen("c:\1zip")

MsgBox a

End Sub

3、open打开你文件的方法：

Private Sub Command1_Click()

Open "c:\1zip" For Input As #1

a = LOF(1)

Close #1

MsgBox a

End Sub

4、还有FSO方法，必须引用FSO组件同时电脑必须支持FSO组件。

建议还是选择第2种方法，简单高效。

filesize

(PHP 4, PHP 5)

filesize — 取得文件大小

说明

int filesize ( string $filename )

返回文件大小的字节数，如果出错返回 FALSE 并生成一条 E_WARNING 级的错误。

Note: 因为 PHP 的整数类型是有符号的，并且大多数平台使用 32 位整数，filesize() 函数在碰到大于 2GB 的文件时可能会返回非预期的结果。对于 2GB 到 4GB 之间的文件通常可以使用 sprintf("%u", filesize($file)) 来克服此问题。

Note: 此函数的结果会被缓存。参见 clearstatcache() 以获得更多细节。

Tip

自 PHP 500 起, 此函数也用于某些 URL 包装器。请参见 Supported Protocols and Wrappers以获得支持 stat() 系列函数功能的包装器列表。

Example #1 filesize() 例子

<php

// 输出类似：somefiletxt: 1024 bytes

$filename = 'somefiletxt';

echo $filename ': ' filesize($filename) ' bytes';

>

参见 file_exists()。

C#获取文件大小，参考代码如下：

foreach (string FileName in FileNames)

{

//取得文件大小

FileInfo MyFileInfo = new FileInfo(FileName);

float MyFileSize = (float)MyFileInfoLength / (1024  1024);

}

大概有这些方法可以获得文件大小

FileSizeByName（需要引用IdGlobal单元）

GetFileSize

FileSize（不能获得正在使用的文件大小）

FileSeek

TFileStreamSize

下面是使用例子

1。FileSizeByName（需要引用IdGlobal单元）

begin

if

OpenDialog1Execute

then

begin

ShowMessage(IntToStr(FileSizeByName(OpenDialog1Filename)));

end;

2。GetFileSize

var

FileHandle:integer;

begin

if

OpenDialog1Execute

then

begin

FileHandle

:=

FileOpen(OpenDialog1FileName,

0);

ShowMessage(IntToStr(GetFileSize(FileHandle,

nil)));

FileClose(FileHandle);

end;

3。FileSize（不能获得正在使用的文件大小）

var

f:

file;

begin

if

OpenDialog1Execute

then

begin

AssignFile(f,

OpenDialog1FileName);

Reset(f,

1);

ShowMessage(IntToStr(FileSize(f)));

CloseFile(f);

end;

4。FileSeek

var

FileHandle:integer;

begin

if

OpenDialog1Execute

then

begin

FileHandle

:=

FileOpen(OpenDialog1FileName,

0);

ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));

FileClose(FileHandle);

end;

5。TFileStreamSize

var

FS:

TFileStream;

begin

if

OpenDialog1Execute

then

begin

FS

:=

TFileStreamCreate(OpenDialog1FileName,

fmShareDenyNone);

ShowMessage(IntToStr(FSSize));

FSFree;

end;

另在IdGlobalProtocols中有个FileSizeByName()的函数。

以上就是关于vb如何利用GetFileSize来获得文件大小全部的内容，包括:vb如何利用GetFileSize来获得文件大小、PHP怎么获取文件大小、C# 中获取文件大小的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！