Dim DirFile As String
DirFile = rp.GetSafeDirDefaultExternal("") '** should point to Donwload Folder
'DirFile = File.DirRootExternal
If (File.Exists(DirFile , "conf.dpn")) Then
If (File.Exists(File.DirInternal, "conf.smc")) Then
File.Delete(File.DirInternal, "conf.smc")
Log("File deleted")
End If
Private SecString As String
Dim ProgID As String
ProgID = File.ReadString(DirFile, "conf.dpn")
SecString = ProgID
Log("Prog ID " & ProgID)
File.WriteString(File.DirInternal, "conf.smc", SecString)
'File.Delete(File.DirRootExternal, "/Download/conf.dpn")
Else
Log("File does not exist")
End If