I finally resorted to something like the following to copy my project files. I wonder if you would
still have the same problem if you did something like this to copy your project files
to a new directory?
STeve
USE &myProject
COPY TO watch
CLOSE ALL
ALTER TABLE watch ADD COLUMN num c(10)
ALTER TABLE watch ADD COLUMN file_name c(250)
ALTER TABLE watch ADD COLUMN ext c(10)
CLOSE ALL
USE watch
PACK
REPLACE ALL file_name WITH name
REPLACE ALL ext WITH SUBSTR(file_name, LEN(ALLTRIM(file_name)) - 3 , LEN(ALLTRIM(file_name)) )
SELECT * from watch INTO TABLE tt ORDER BY ext, file_name
REPLACE ALL ext WITH STRTRAN(ext,CHR(0),"")
REPLACE ALL file_name WITH STRTRAN(file_name,CHR(0),"")
REPLACE ALL num WITH ALLTRIM(STR(recno())) +" of "+ ALLTRIM(STR(reccount()))
wait wind nowait "copying project files to c:\e\"
DO WHILE .not. EOF()
&& gets the stuff in the project file
*SET STEP ON
myFile = JUSTSTEM(JUSTFNAME(ALLTRIM(file_name)))
oldFile = FULLPATH("") + myFile + ".*"
&& newFile = "c:\e\" + myFile + ".*" && revise as needed
? "copying -->> " + oldFile + " -- >> " + newFile
COPY FILE &OldFile TO &NewFile
skip
enddo
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only