📄 4813.html
字号:
<html>
<head>
<title>Re: GetFileSize() API</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: GetFileSize() API</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on August 17, 1998 at 21:56:02:<p>
In Reply to: <a href="4801.html">Re: GetFileSize() API</a> posted by Midco on August 17, 1998 at 17:07:31:<p>
: 请问 getfilesize() API 要如何用呢？<p>: Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long<p>: 我没有用过 API，如何 pass parameter 到 GetFIleSize() 中呢？<p>: Thanks<p>通常事先要先用CreateFile 取得档案代码 <br>才能用GetFileSize 取得档案大小<p>'模组宣告方式通常如下 _ <br>如在其他地方宣告得作修改 <p>Declare Function CreateFile Lib _<br>"kernel32" Alias "CreateFileA" _<br>(ByVal lpFileName As String, _<br>ByVal dwDesiredAccess As Long, _<br>ByVal dwShareMode As Long, _<br>ByVal lpSecurityAttributes _<br>As Long, ByVal _<br>dwCreationDisposition As Long, _<br>ByVal dwFlagsAndAttributes _<br>As Long, ByVal hTemplateFile _<br>As Long) As Long<p>Declare Function CloseHandle Lib _<br>"kernel32" (ByVal hObject As Long) As Long<p>Declare Function GetFileSize Lib _<br>"kernel32" (ByVal hFile As Long, _<br>lpFileSizeHigh As Long) As Long<p>Public Const GENERIC_READ = &H80000000<br>Public Const GENERIC_WRITE = &H40000000<p>Public Const FILE_SHARE_READ = &H1<br>Public Const FILE_SHARE_WRITE = &H2<p>Public Const OPEN_ALWAYS = 4<p>Public Const FILE_ATTRIBUTE_NORMAL = &H80<p>Public Const PAGE_READWRITE = 4<p>Public Const SECTION_MAP_WRITE = &H2<br>Public Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000<p><p><p>'宣告后 只要加入以下程式 就能取得档案大小<br>dim StrfileName as string<br>dim hFile as long<br>dim DblSize as double<br>dim Result as long<br>StrfileName="c:\dot.wav"'设定所要开启的档案<p><br>hFile = CreateFile(StrfileName, _<br>GENERIC_READ Or GENERIC_WRITE, _<br>FILE_SHARE_READ Or FILE_SHARE_WRITE, _<br>0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, _<br>0)'取得档案代码<br> <br>DblSize = GetFileSize(hFile, 0)<br>'DblSize 就是档案大小<p>Result = CloseHandle(hFile) '关闭档案代码<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4813-->
<!--top: 4817--><li><a href="4817.html">Re: GetFileSize() API 多谢你！ (无内容)</a> <b>Midco</b> <i>23:54:38 8/17/98</i>
(<!--responses: 4817-->0)
<ul><!--insert: 4817-->
</ul><!--end: 4817-->
</ul><!--end: 4813-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -