Need Help Finding the Size of a File 1

Hawkeye123456 · May 25, 2000

I want to tell how BIG (in bites or KB or whatever) a file is.  I want to be able to do this on any type (.exe, .zip, .mp3,...) I want to be able to use this for a Web site index program I am writting. Thanks a bunch, and I love this site.

Karl Blessing · May 26, 2000

this is from the MSDN , it uses FileSystemObject which is availible in Visual Basic, this doesnt say it does what you are asking, but if you look at one of the click commands, it returns the filesize of a file it passes to it. HOWTO: Use FileSystemObject with Visual Basic -------------------------------------------------------------------------------- The information in this article applies to: Microsoft Visual Basic Learning, Professional, and Enterprise Editions for Windows, versions 5.0, 6.0 -------------------------------------------------------------------------------- SUMMARY FileSystemObject provides a non-hierarchical structure to manipulate, read, and create ASCII and Unicode text files. This structure is very different from the hierarchical structure of the original implementation of File I/O in Visual Basic. FileSystemObject does not support binary file access, so you must still use the original File I/O model in Visual Basic for binary file access. MORE INFORMATION FileSystemObject can be found in Scrrun.dll. In addition to FileSystemOject, Scrrun.dll includes four other objects available for File I/O and other tasks. These objects include the File object, the TextStreamObject object, the Folder object, and the Drive object. All of these objects have properties and methods that are detailed in the Help files. You can obtain Scrrun.dll by installing one of the following packages: Windows Script Host Windows NT Option Pack Microsoft Internet Information Server 3.0 Scripting 3.1 upgrade Visual Studio 6.0 Visual Basic 6.0 FileSystemObject was originally created for the Visual Basic Scripting Edition. FileSystemObject is not included in the object library for Visual Basic or Visual Basic for Applications. To use FileSystemObject, you must select the Microsoft Scripting Run-time in the Project References dialog box for your project. The following sample illustrates how to implement some of the FileSystemObject functionality. For more information, please see the Visual Basic Help files and the Visual Basic Books Online. Steps to Create Sample Project Start a new Standard EXE project in Visual Basic. Form1 is created by default. Click References on the Project menu and select the Microsoft Scripting Runtime. If the Microsoft Scripting Runtime does not appear in the list, browse for Scrrun.dll on your system. Install one of the tools listed previously if necessary. Add four CommandButton controls to Form1. The CommandButton controls demonstrate the following functionality:    Command1: How to read an existing text file using FileSystemObject              and TextStreamObject.    Command2: How to view file information using FileSystemObject and              the File object.    Command3: How to iterate through folders using FileSystemObject and              the Folder object.    Command4: How to view drive information using FileSystemObject and              the Drive object.   Paste the following code into the General Declarations section of Form1:       Option Explicit       Private Sub Command1_Click()         'Declare variables.         Dim fso As New FileSystemObject         Dim ts As TextStream         'Open file.         Set ts = fs

penTextFile(Environ("windir&quot

& "\system.ini&quot

'Loop while not at the end of the file.         Do While Not ts.AtEndOfStream           Debug.Print ts.ReadLine         Loop         'Close the file.         ts.Close       End Sub       Private Sub Command2_Click()          Dim fso As New FileSystemObject          Dim f As File          'Get a reference to the File object.          Set f = fso.GetFile(Environ("windir&quot

& "\system.ini&quot

MsgBox f.Size 'displays size of file       End Sub       Private Sub Command3_Click()          Dim fso As New FileSystemObject          Dim f As Folder, sf As Folder, path As String          'Initialize path.          path = Environ("windir&quot

'Get a reference to the Folder object.          Set f = fso.GetFolder(path)          'Iterate through subfolders.          For Each sf In f.SubFolders            Debug.Print sf.Name          Next       End Sub       Private Sub Command4_Click()          Dim fso As New FileSystemObject          Dim mydrive As Drive          Dim path As String          'Initialize path.          path = "C:\"          'Get object.          Set mydrive = fso.GetDrive(path)          'Check for success.          MsgBox mydrive.DriveLetter 'displays "C"       End Sub   Run your project. Click each CommandButton control and observe the results. REFERENCES For information, please see the following article in the Microsoft Knowledge Base: Q185601 HOWTO: Recursively Search Directories Using FileSystemObject Additional query words: Keywords : kbFileIO KbVBA kbVBp kbVBp500 kbVBp600 kbGrpVB kbDSupport Version : WINDOWS:5.0,6.0 Platform : WINDOWS Issue type : kbhowto Technology : Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Karl Blessing · May 26, 2000

just so you know the size that the file object returns is in Bytes. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

MikeLacey · May 26, 2000

if all you need is the filesize - the function FileLen does only that MySize = FileLen("TESTFILE&quot

Code above set the variable MySize to the number of bytes in the file TESTFILE in the current directory Mike <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a> Please don't send me email questions without posting them in Tek-Tips as well. Better yet -- Post the question in Tek-Tips and send me a note saying "Have a look at so-and-so in the thingy forum would you?"

Karl Blessing · May 26, 2000

well Keep my post in mind if you want to mess with other purposes of the files (short and simple , good job Mike hehe) Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

MikeLacey · May 26, 2000

Sorry Karl - didn't mean to sound critical, the fso is a powerful object, good post. Mike <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a> Please don't send me email questions without posting them in Tek-Tips as well. Better yet -- Post the question in Tek-Tips and send me a note saying "Have a look at so-and-so in the thingy forum would you?"

Karl Blessing · May 26, 2000

even so, but it would seem that some commands are more robust than other, the general rule in critical programming is to write the smallest ammount of code possible, including the ammount of work required to perform a task some would argue that 10 lines of code compared to 1 is no big difference they probally would be only a nanoseconds of difference, but thats looking at the microscopic perspective, back up and see that same peice of code ran over a billion times then how many lines of wasted time is there? thats my little two bits of why I prefer your response in this particular question.

Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Hawkeye123456 · May 26, 2000

What type of variable would you store the length in?

MikeLacey · May 26, 2000

a Long should be ok Mike <a href=mailto:Mike_Lacey@Cargill.Com>Mike_Lacey@Cargill.Com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a> Please don't send me email questions without posting them in Tek-Tips as well. Better yet -- Post the question in Tek-Tips and send me a note saying "Have a look at so-and-so in the thingy forum would you?"

Karl Blessing · May 26, 2000

an interger usally has the limit of -32 thousand to 32 thousand and unsigned integer has a limit of 0 -> 64K since there is a chance you'll be getting file sizes larger than 64 kilobytes, a long is ok, since thats like well heres a table. The values of the integral types are integers in the following ranges: (as from the MSDN as well) The following table shows the supported data types, including storage sizes and ranges. Data type Storage size Range Byte 1 byte 0 to 255 Boolean 2 bytes True or False Integer 2 bytes -32,768 to 32,767 Long (long integer) 4 bytes -2,147,483,648 to 2,147,483,647 Single (single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive values Double (double-precision floating-point) 8 bytes -1.79769313486231E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values Currency (scaled integer) 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807 Decimal 14 bytes +/-79,228,162,514,264,337,593,543,950,335 with no decimal point; +/-7.9228162514264337593543950335 with 28 places to the right of the decimal; smallest non-zero number is +/-0.0000000000000000000000000001 Date 8 bytes January 1, 100 to December 31, 9999 Object 4 bytes Any Object reference String (variable-length) 10 bytes + string length 0 to approximately 2 billion   String (fixed-length) Length of string 1 to approximately 65,400 Variant (with numbers) 16 bytes Any numeric value up to the range of a Double Variant (with characters) 22 bytes + string length Same range as for variable-length String User-defined (using Type) Number required by elements The range of each element is the same as the range of its data type. Note   Arrays of any data type require 20 bytes of memory plus 4 bytes for each array dimension plus the number of bytes occupied by the data itself. The memory occupied by the data can be calculated by multiplying the number of data elements by the size of each element. For example, the data in a single-dimension array consisting of 4 Integer data elements of 2 bytes each occupies 8 bytes. The 8 bytes required for the data plus the 24 bytes of overhead brings the total memory requirement for the array to 32 bytes. A Variant containing an array requires 12 bytes more than the array alone. Note   Use the StrConv function to convert one type of string data to another. so as you can see Long is like 2 Gigs and I doubt you'll find any files that big. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Need Help Finding the Size of a File 1

Hawkeye123456

Programmer

Karl Blessing

Programmer

Karl Blessing

Programmer

MikeLacey

MIS

Karl Blessing

Programmer

MikeLacey

MIS

Karl Blessing

Programmer

Hawkeye123456

Programmer

MikeLacey

MIS

Karl Blessing

Programmer

Similar threads

Part and Inventory Search

Sponsor