I tried to reproduce locally with a NAS and watching your numbers I strongly
believe that it is related to the up and downstream of your datashare connection.
20000 kbit/s
1390 kbit/s
Be aware that I slightly changed the example because the
DataFileMove method works different than I expected.
I tried to create an script to reproduce.
In my system with a NAS and a 400MB file.
Channels: 30
Size : 400,02 MB
Save : 14,9813 s
Load : 13,1988 s
Option Explicit 'Forces the explicit declaration of all the variables in a script.
dim targetPath : targetPath = "\\192.168.2.2\public\out.tdms"
dim filesizeinmb : filesizeinmb = 400
dim nrOfChannels : nrOfChannels = 30
dim nrOfValues : nrOfValues = filesizeinmb * 1024 * 1024 / 8
dim chLength : chLength = CLng(nrOfValues / nrOfChannels)
MsgLineDisp "Generate data"
LoopInit
data.root.clear
dim grp : set grp = data.Root.ChannelGroups.Add("group")
dim i : for i = 1 to nrOfChannels
loopinc i * 100/nrOfChannels
Call ChnGeoGen("/ch" & i,i,i*100,chLength,"")
Next
loopdeinit
MsgLineDisp "Delete fie if already exists"
if FileExist(targetPath) then
DataFileDelete targetPath
end if
MsgLineDisp "Save to target file"
stopwatchreset 1
SaveTdmsLocalAndMove targetPath
dim dT1 : dT1 = stopwatch(1)
dim realFileSizeInMb : realFileSizeInMb = DataFileSize(targetPath)/1024/1024
MsgLineDisp "Load file"
data.Root.Clear
stopwatchreset 1
LoadTdmsFileImediately targetPath
dim dT2 : dT2 = stopwatch(1)
if FileExist(targetPath) then
DataFileDelete targetPath
end if
MsgBox "Channels: " & nrOfChannels & VBCRLF &_
"Size : " & FormatNumber(realFileSizeInMb,2) & " MB" & VBCRLF &_
"Save : " & FormatNumber(dT1, 4) & " s" & VBCRLF &_
"Load : " & FormatNumber(dT2, 4) & " s"
sub SaveTdmsLocalAndMove(byVal targetPath)
dim fileType : fileType = UCase(right(targetPath, len(targetPath) - instrRev(targetPath, ".")))
dim targetPathStr : targetPathStr = left(targetPath, instrRev(targetPath, "\"))
dim targetFileName : targetFileName = right(targetPath, len(targetPath) - instrRev(targetPath, "\"))
dim tmpTargetPath : tmpTargetPath = TmpDrv & targetFileName
call DataFileSave(tmpTargetPath, fileType)
call DataFileMove(tmpTargetPath, targetPathStr)
end sub
function LoadTdmsFileImediately(byval srcFile)
dim oldBulkDataLoadingMode : oldBulkDataLoadingMode = BulkDataLoadingMode
BulkDataLoadingMode = eBulkDataLoadingImmediately
on error resume next
DataFileLoad srcFile
LoadTdmsFileImediately = err.number
on error goto 0
BulkDataLoadingMode = oldBulkDataLoadingMode
end function
