File Size with VBS

[Scuba Jon]

I am working on a program where I need to determine the physical file size of a graphics file. I have tried a few approaches and thusfar been unable to make them work. below are two of the methods I have tried unsuccessfully. Does anyone have any experience with this?

 

Call Main()

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

' Call ShowFolderSize()

Call ShowFolderSize2()

End Sub

 

Sub ShowFolderSize2()

Dim infoReader

Dim filesize

Dim infoReader As System.IO.FileInfo

 

infoReader = My.Computer.FileSystem.GetFileInfo("c:templayup.cgm")

filesize = infoReader.Length

Showstring ("File Size is: " & filesize)

End Sub

 

Sub ShowFolderSize()

Dim FSO, F, FC, filename, filesize, strpartno

strpartno = "c:templayup.cgm"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set F = FSO.GetFolder(strpartno)

filename = F.Name

filesize = F.Size

Showstring ("File Name is: " & filename)

Showstring ("File Size is: " & filesize)

End Sub

[Mick from CNC Software Inc.]

Randy,

 

With VBScript you cannot declare any variable or object As a type, also My is a VB.NET keyword if I recall. Rem out the ShowFolderSize2() function, does ShowFolderSize() works as expected?

[Scuba Jon]

The first one I tried was "ShowFolderSize()". I get the error "Path Not found". The file path I used does exist. When that didn't work I added "ShowFolderSize2()". That one bombed out, not surprisingly, on the "inforeader = My.Computer..." line.

 

Is there any other direction you can suggest?

 

Thank you again

[Mick from CNC Software Inc.]

code:

---

Dim FSO, F, FC, filename, filesize, strpartno

 

strpartno = "c:test.xml"

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

Set F = FSO.GetFile(strpartno)

 

filename = F.Name

filesize = F.Size

 

Showstring ("File Name is: " & filename)

Showstring ("File Size is: " & filesize)

---

[Scuba Jon]

Thanks Mick

That is exactly what I want!