Seems to work for me, your code scanned all QVD in my download folder.
Why do you think that only x3.QVD has been scanned? Have you checked the SourceFile field values?
You are using a wrong variable name here:
let vFileName = mid(vFile, index(vFile, '\', -1) + 1, 99);
So maybe this is causing your issues.
Yes you are correct. I am using wrong variable.
I corrected it but the point is I want to load QVD's from every folder.
Now if I use below code it will only fetch x1 , x4 and x5 Qvd's but not x2 and x3 as they are iin different folders and are not subfolders of folder1.
How will I fetch x2 and x3 QVD.?
Set vConcatenate = ;
for each FileExtension in 'qvd'
for each FoundFile in filelist( Root & '\*.' & FileExtension)
let vFileName = mid(FoundFile, index(FoundFile, '\', -1) + 1, 99);
1 as FieldCount,
'$(vFileName)' as [File Name],
FieldName as [Field Name],
BitOffset as [Bit Offset],
BitWidth as [Bit Width],
Bias as [Bias],
NoOfSymbols as [No Of Symbols],
[NumberFormat/Type] as Type,
[NumberFormat/nDec] as Dec,
[NumberFormat/UseThou] as UseThou,
'$(FoundFile)' as SourceFile
FROM [$(FoundFile)] (XmlSimple, Table is [QvdTableHeader/Fields/QvdFieldHeader]);;
Set vConcatenate = Concatenate;
for each SubDirectory in dirlist( Root & '\*' )
Call ScanFolder('F:\Practise Apps\Subfolder scaning\Main') ;