so far i have this in my script
Code:
Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Dim $File
For Each $File In ReadFile('\\Server\Share\delete_these_files.txt')
  If Exist('C:\Program Files\'+$File)
    ? 'C:\Program Files\'+$File
for each $File in readfile($file)
del "C:\Program Files\"+$File+"\*.*" /s /c
rd "C:\Program Files\"+$File /q
next 
 
? @error +' '+@serror
  EndIf
Next
 
 
Function ReadFile($file)
  Dim $lf, $f, $_, $t
  $lf=CHR(10)
  $f=FreeFileHandle
  $_=Open($f,$file)
    If @ERROR Exit @ERROR EndIf
    Do $t=$t+$lf+ReadLine($f) Until @ERROR
    $_=Close($f)
  $ReadFile=Split(SubStr($t,2),$lf)
EndFunction


this in my delete_these_files.txt
Code:
$FileDirectory


and this is th output
Code:
C:\test.kix
c:\Program Files
-1
c:\