// Sub-routine for one (sub-)directory SUB DoDir (Root)
// Load each file in the directory // SAP_BPCDataFiles__wk_09_FY2018 - BPC WEEKLY SALES FOR Each File in filelist (Root&'\SAP_Sales_Files_wk_??_FY???? ')
TRACE $(File); Concatenate(FileList) load '$(File)' as FileName, FileTime('$(File)') as FileTime, 1 as New AutoGenerate 1 where not Exists(FileName,'$(File)');
Concatenate(FileList) load '$(File)' as FileName, FileTime('$(File)') as FileTime, 1 as New Resident FileList where FileName = '$(File)' and FileTime < FileTime('$(File)'); NEXT File; // go one level deeper in the directory-structure FOR Each Dir in dirlist (Root&'\*' )
call DoDir (Dir)
NEXT Dir
ENDSUB
----
It seems I have some error, in my re-written code for Sense? Do you have an idea whats wrong?
Set VariableQvdPath = 'lib://Sales\02_Extraction_qvd\';
SUB DoDir (Root) // how to re-write "Root" in Sense?
// Load each file in the directory
FOR Each File in filelist ('$(VariableQvdPath )SAP_Sales_Files_wk_??_FY????')
TRACE $(File);
Concatenate(FileList) load '$(File)' as FileName, FileTime('$(File)') as FileTime, 1 as New AutoGenerate 1 where not Exists(FileName,'$(File)');
Concatenate(FileList) load '$(File)' as FileName, FileTime('$(File)') as FileTime, 1 as New Resident FileList where FileName = '$(File)' and FileTime < FileTime('$(File)'); NEXT File; // go one level deeper in the directory-structure FOR Each Dir in dirlist ('$(VariableQvdPath )*') // former (Root&'\*' )
