Rename File 2

[xBaseDude]

I'm looking for an example of using the Win API to rename a file. I know the current file name and path, and want to keep the file in the same directory but execute the REN command on it.Any issues with "long file names" iow "My data 1stQtr.dbf" Do the spaces cause any issues?

TIA - Wayne

 

[Mike Gagnon]

I would suggest you use a combination of CopyFile():

DECLARE INTEGER CopyFile IN kernel32;
	STRING  lpExistingFileName,;
	STRING  lpNewFileName,;
	INTEGER bFailIfExists

And Deletefile()

DECLARE INTEGER DeleteFile IN kernel32;
	STRING lpFileName

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[GriffMG]

You could use:

DECLARE INTEGER MoveFile IN Win32API STRING SOURCE, STRING destination
IF MOVEFILE("c:\myfolder\myfile.dbf","c:\myfolder\newname.dbf") = 1
  && success
ELSE
  && Failure
ENDIF

Regards

Griff
Keep [Smile]ing

 

[jimstarr]

Hi Wayne,

There is also the native FoxPro RENAME command.

Jim

 

[GriffMG]

Dooh,

I forgot that one! You would be best using character substition/variables for the new and old filenames...

m.OldFile = "c:\a long folder name\old file name.dbf"
m.NewFile = "c:\a long folder name\New file name.dbf"

rename (m.OldFile) to (m.NewFile)

Regards

Griff
Keep [Smile]ing

 

[GriffMG]

You would pobably want to check:

1) The old file exists
2) The new file doesn't exist initially
3) The new file does exist afterwards

If you are using File() to do this, be careful the files aren't in your current path - or the results can be misleading! I use a UDF called MyFile for this to make sure:

FUNCTION MYFILE
	PARAMETER m.FILENAME
	PRIVATE m.FILENAME,m.FLG
	M.FLG = .F.
	IF !EMPTY(m.FILENAME)
		IF ADIR(TMPDIRFILES,m.FILENAME) > 0
			M.FLG = .T.
		ENDIF
	ENDIF
	RETURN(m.FLG)

Regards

Griff
Keep [Smile]ing

 

[xBaseDude]

Thank-You very much for all your suggestions. Not by my machine right now, but your kindness has shown me many different ways.

Take care!
Wayne