Ok, here is what I have now.

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)
    Del 'C:\Program Files\'+$File
  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


and here is what the delete_these_files.txt looks like
Code:
file1


i still can't to get it to work
the script runs without errors, but it doesn't delete anything