Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Poject/files copied to new location - still runs old for
Message
General information
Forum:
Visual FoxPro
Category:
Project manager
Miscellaneous
Thread ID:
00905397
Message ID:
00905886
Views:
9
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
Map
View

Click here to load this message in the networking platform