Weird issue: SaveAs doesn't copy files properly

[VB Programmer]

I wrote some VB.NET code that loops thru a dir on the users local machine
and uploads all the files to a server's subdir. It copies all of the files,
but ALL THE FILES ARE 37KB in size. In reality they are 1kb, 4kb, 3kb,
etc... The gifs don't even open up. Any ideas?

Thanks.

Here's the code...

' Upload the directory full of images
Dim strImagesDir As String = "c:\temp\Myfiles" ' local users
machine
Dim d As System.IO.Directory
' Get a listing of the files
Dim strFiles As String() = d.GetFiles(strImagesDir)

For Each f As String In strFiles
Dim strServerImagesDir As String =
"c:\inetpub\wwwroot\MySite\My_Files"
If Not d.Exists(strServerImagesDir) Then
' create images dir
d.CreateDirectory(strServerImagesDir)
End If
' upload each file
MyFile.PostedFile.SaveAs(strServerImagesDir + "\" &
System.IO.Path.GetFileName(f))
Next

 

[VB Programmer]

When I upload the files INDIVIDUALLY they work fine. When I upload MULTIPLE
files this happens.

MyFile is defined as this in html...
<INPUT id="MyFile" type="file" size="40" name="MyFile" RunAt="Server"
DESIGNTIMEDRAGDROP="490">

Any ideas?