Have you tried copying from a usb pen to hd? I agree with the fact that hd to hd copy make almost no diff, but usb to hd in my tests make a huge difference (specially under win).
t > That is interesting as it doesn't *seem* slower here. I haven't > actually > tested this, but it seems very similar to the OS copy. > > By OS, I mean, if you were to pick up a file with your mouse, copy, > then > paste. > > This is a snippet from the code I placed in a thread. See the > dstream.Write > sstream.Read(8192) line: > > ///////////////// > // Copy > If AbortThread = False then > While sstream.EOF=False > wnMain.ProgressBar1.Maximum = > wnMain.ProgressBar1.width > dstream.Write sstream.Read(8192) //<-- > Raising > the number here could speed up things for you, but not sure of the > ramifications. > wnMain.ProgressBar1.Value = > (dstream.Length / > sstream.Length) * wnMain.ProgressBar1.Maximum > > // Format byte string for viewing. > bytesCopied = dstream.Length > bytesFull = sourceSize > > If bytesCopied > 1048576 then > byteStrCopied = format(bytesCopied / > 1048576, > "0.0") + " MB" > ElseIf bytesCopied > 1024 then > byteStrCopied = format(bytesCopied / > 1024, "0") > + " KB" > Else > byteStrCopied = format(bytesCopied, > "0") + " > Bytes" > End If > > If bytesFull > 1048576 then > byteStrFull = format(bytesFull / > 1048576, "0.0") > + " MB" > ElseIf bytesFull > 1024 then > byteStrFull = format(bytesFull / 1024, > "0") + " > KB" > Else > byteStrFull = format(bytesFull, "0") + > " Bytes" > End If > > wnMain.stCurrentFileName.Text = "File: " + > currentFile.Name > wnMain.stCurrentBytes.Text = "Transfer: " + > byteStrCopied + " of " + byteStrFull + " copied..." > // > Wend > End If > > sstream.Close > dstream.Close > wnMain.ProgressBar1.Value = 0 > wnMain.stCurrentFileName.Text = "File:" > wnMain.stCurrentBytes.Text = "Transfer:" > ///////////////// > > > > _______________________________________________ > Unsubscribe or switch delivery mode: > <http://www.realsoftware.com/support/listmanager/> > > Search the archives: > <http://support.realsoftware.com/listarchives/lists.html> _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives: <http://support.realsoftware.com/listarchives/lists.html>
