Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Edit/Delete *.*
Message
De
14/08/2003 09:54:49
 
 
À
14/08/2003 08:41:32
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00820057
Message ID:
00820112
Vues:
19
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!').
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform