1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Function DeleteFile(&FilePath As string, &sFileName As string) Returns string; Local string &sReturnValue; Local File &RQST_FILE1 = GetFile(&FilePath | &sFileName, "W", %FilePath_Absolute); Local number &retcode; Local JavaObject &oDelFile; &FNAMES = FindFiles(&FilePath | &sFileName, %FilePath_Absolute); If &FNAMES.Len > 0 Then MessageBox(0, "", 0, 0, "fileExists " | &FNAMES [1]); If All(&RQST_FILE1) Then &oDelFile = CreateJavaObject("java.io.File", &FilePath | &sFileName); &sFileName1 = &oDelFile.getName(); &nFilelength1 = &oDelFile.length(); MessageBox(0, "", 0, 0, "&sFileName1 " | &sFileName1); MessageBox(0, "", 0, 0, "&nFilelength1 " | &nFilelength1); &oDelFile.delete(); Return "DELETED"; End-If; End-If; Return " "; End-Function; |
Recent Comments