OpenEuphoria

1. deleting files

• Posted by buzzo Aug 18, 2014
• 1400 views

delete_file(fileName) does not remove a file.. return 0, not 1 the path, is fine.. used chdir(XXX)to set it the file does exist as does the path.. the file was created using copy_file(x,y) Using win7, eu ver 4.0.3, Win32Lib

3. Re: deleting files

• Posted by buzzo Aug 18, 2014
• 1321 views

All puts(1........) supply expected info, except for the one commented

 
procedure delete_Rel_records() 
	sequence FileName 
puts(1,to_string(personKey) & CrLf) 
	db_select_table("birth") x = db_find_key(personKey) if x > 0 then puts(1,"birth " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("death") x = db_find_key(personKey) if x > 0 then puts(1,"death " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("parents") x = db_find_key(personKey) if x > 0 then puts(1,"parents " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("spouse") x = db_find_key(personKey) if x > 0 then puts(1,"spouse " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("marriages") x = db_find_key(personKey) if x > 0 then puts(1,"marriages " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("relative") x = db_find_key(personKey) if x > 0 then puts(1,"relative " & to_string(x) & CrLf) end if --db_delete_record(x) end if	 
	db_select_table("citation") x = db_find_key(personKey) if x > 0 then puts(1,"citations " & to_string(x) & CrLf) end if --db_delete_record(x) end if 
	db_select_table("photographs") x = db_find_key(personKey)  
	if x > 0 then puts(1,"photographs " & to_string(x) & "  ")  
		 
		FileName = db_record_data(x)  
		puts(1,to_string(length(FileName)) ) 
		if length(FileName)>2 then 
			puts(1,to_string(FileName) & "  ") 
			puts(1,pathToPhoto & surName & "\\" & FileName & CrLf)  
			if chdir(pathToPhoto & surName & "\\")=1 then 
				puts(1,"path is " & curdir() ) --pathToPhoto & surName & CrLf) 
				if delete_file(FileName )=1 then 
-- this puts(1,....) does not show up....... 
					puts(1,"deleted " & FileName & CrLf) 
				end if 
-- will leave until delete works properly	 
				--db_delete_record(x)  
			end if 
		end if 
	end if 
	 
end procedure 
 

5. Re: deleting files

• Posted by buzzo Aug 18, 2014
• 1283 views

The output of ? current_dir will not convert using to_string.. however, using puts(1,to_string(current_dir())) produces the correct path... same as curdir()...omitting the back slash made no diff

Thanks for your reply..

Z

7. Re: deleting files

• Posted by DerekParnell (admin) Aug 18, 2014
• 1243 views

Be more specific please.

Why do you think the problem is "long file names".

What is the content of FileName at the time of calling delete_file()?

9. Re: deleting files

• Posted by DerekParnell (admin) Aug 18, 2014
• 1245 views

Still not enough info.

What happens when you call delete_file() with the 'short name'?

11. Re: deleting files

• Posted by DerekParnell (admin) Aug 18, 2014
• 1228 views

Have you tried not changing directories but doing this instead ...

delete_file(pathToPhoto & surName & "\\" & FileName) 

13. Re: deleting files

• Posted by DerekParnell (admin) Aug 19, 2014
• 1223 views

Ok ... let's clear up some assumptions next.

• Does the file actually exist?
• Has the file actually been deleted but just not getting reported as such?
• Can you delete the file manually, via the console?
• Is the file open (by this application or anything else) at the time the delete_file() is being called?
• Can you display/read the contents of the file?

As for screenshots, you should be able to just do some cut&paste from the console window.

15. Re: deleting files

• Posted by buzzo Aug 19, 2014
• 1244 views