Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Edit/Delete *.*
Message
From
14/08/2003 09:54:49
 
 
To
14/08/2003 08:41:32
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00820057
Message ID:
00820112
Views:
20
Hi again,
There is little example from one my program
lcDir = text2.value  &&In your case
LOCAL ARRAY aFls(1,1)
ADIR(aFls,ADDBS(lcDir)+"*.*")
IF ALEN(aFls,1)>0
	FOR lnk=1 TO ALEN(aFls,1)
		IF TYPE("aFls[lnk,1]")="C"
			IF !aFls[lnk,5]$"D"
				lcSourceFile = ADDBS(lcDir)+aFls[lnk,1]
				lcDestFile = ADDBS(lcChildName)+aFls[lnk,1]
				WAIT "Copy File "+lcSourceFile WINDOW NOWAIT
				COPY FILE (lcSourceFile) TO (lcDestFile)
			ENDIF
		ENDIF
	ENDFOR
ENDIF
Denis

>Please be more specific.
>I have two text boxes in my form, text1 is the source data and text2 is the target data.
>I use with the following syntax
>
cd(text2.value)
>delete file *.* &&delete old backup
>cd (text1.value)
>copy file *.* to (text2.value)&© real data to backup
>I get error message in the last line ('cannot create file!').
Previous
Reply
Map
View

Click here to load this message in the networking platform