Code:
Dim $Directory, $file

$Directory = "\\nucnas02\intratst_content\busservices\procurement_home\pres\ProductGuide\"

for each $file in dirplus($directory,'/ad /f htm')
	? $file.name "	" $file.path
next