Since you are building the QVW file, you can create the name of the QVD to fit easiest your needs, but as it is now, using a few string functions will do
LOAD SubField(FileName(), '.', 1) AS ApplicationName,
SubField(FileName(), '_', 1) AS QVDName,
Date(Date#(SubField(FileName(), '_', 2), 'YYYY-MM-DD')) AS LoadDate,