Issue saving across VPN

[dano]

Terry - No, I do not have any other issues with any other programs including Office.  Everything saves fast, not quite as fast as local but pretty close.

SMcNeil - The drives in the server are all SSD flash memory so there is no lag time, and the hardware based RAID controller in use does not allow sleep functions for online drives.  Good thinking though!  (yeah, our system at work is pretty drool worthy!  10GbE fiber to the desktop too!  It is so freakin fast!)


I ran 2 different programs to save the identical information 2 different ways using QB64 and there are astounding differences:

'Program 1
Dim raw$(4000)
For x = 1 To 4000 '      load array with data
    p% = Int(Rnd * (40)) + 20
    l% = Int(Rnd * (40)) + 20
    raw$(x) = Mid$("This is a sample sentence that we will be using to generate random length strings that have pseudo random characters in them by taking a random position with a random length", p%, l%)
Next x
s# = Timer
Open "o", #1, "z:\testfile.dat"
For x = 1 To 4000 '      write data from array
    Print #1, raw$(x)
    Print x
Next x
Close #1
Print "Time Elapsed: "; Timer - s#

This one took 5 minutes and 15 seconds to write all 4000 lines.  I then changed that program just a tad so that the output file is local to drive c and it saved the file in .05 seconds.



Then I copied the file that was generated in program 1 across the VPN to drive c: of the local machine and that took < 1 second.  I then used the following program to copy it back to z: but used binary mode instead:

'Program 2
s# = Timer
fA = FreeFile
Open "c:\temp\testfile.dat" For Binary As fA
fB = FreeFile
Open "z:\testfile.dat" For Binary As fB
fbc$ = Space$(LOF(fA))
Get fA, , fbc$
Put fB, , fbc$
Close fA
Close fB
Print "Time Elapsed: "; Timer - s#

This one finished in 1.15 seconds.


I hope this helps...
dano