Determine file length from a file picked from a listbox

[PRPhx]

I am working on a copy application in which I can choose one or more files from a listbox and copy them from a network share to my local pc. The file(s) I am coping are large (approx 1 GIG - these are zipped production SQL Server backup files).

What I need to do, is determine the length of each file that has been picked for copy. How do I do this??? Everything I try either 1) Gives the number of files in my list box or 2) Gives an "Object reference not set to an instance of an object."

I want to use the file size as the max part of a progress bar, so I know how much of the file has been copied over the network.

Thanks for your help.

I have tried the following:

Dim x As Integer
' Make a reference to a directory.
Dim di1 As New DirectoryInfo("\\SCANSERVER\f$\SQL_Backups")
'' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di1.GetFiles()
'' Display the names and sizes of the files.
Dim f As FileInfo

x = f.Length
MsgBox("X is : " & x, MsgBoxStyle.OKOnly, "")

Not sure what I need to be doing.

 

[ThatRickGuy]

Try using a filestream:

 Dim fs As New System.IO.FileStream("c:\test\test.txt", IO.FileMode.OpenOrCreate)
 Dim NumberOfBytes As Int64 = fs.Length()

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[earthandfire]

You could try something like:

    Dim x As Long
    ' Make a reference to a directory.
    Dim di1 As New IO.DirectoryInfo("\\SCANSERVER\f$\SQL_Backups")
    '' Get a reference to each file in that directory.
    Dim fiArr As IO.FileInfo() = di1.GetFiles()
    '' Display the names and sizes of the files.
    For Each f As IO.FileInfo In fiArr
      x = f.Length
      MsgBox(f.Name & " is : " & x & " bytes", MsgBoxStyle.OKOnly, "")
    Next

Hope this helps.