A voir également:
- Clipper 5.01 sous XP
- Cle windows xp - Guide
- Telecharger windows xp - Télécharger - Systèmes d'exploitation
- Winsetupfromusb windows xp - Télécharger - Utilitaires
- Cdburner xp - Télécharger - Gravure
- Windows xp simulator - Télécharger - Études & Formations
1 réponse
Bonjour,
Essaye un peu ce programme
Renommez ce fichier avec l'extension .PRG pour l'utiliser.
* ----------------------------------------------------------
*
* Les caractères utilisés sont des caractères Windows, donc
* vous aurez des transformations à faire pour DOS.
*
* - - - - - - - - - - - - - - - - -
*
* Programme.
*
vFichierSource="0essaiDeCopieLongue.txt" && Fichier long à copier.
vFichierCible="0Essai.txt" && Fichier de destination.
*
* Création d'un fichier cible s'il n'existe pas car xcopy demande
* si c'est un fichier ou un répertoire di le fichier de destination n'existe pas.
*
IF .NOT. FILE(vFichierCible)
Temp=FCREATE(vFichierCible) && Création du fichier cible (leurre)
FCLOSE(Temp) && Fermeture du fichier leurre.
ENDIF
*
RUN XCOPY /V /Y &vFichierSource &vFichierCible && Copie avec vérification et écrasement.
*
QUIT
*
* - - - - - - - - - - - - - - - - -
Essaye un peu ce programme
Renommez ce fichier avec l'extension .PRG pour l'utiliser.
* ----------------------------------------------------------
*
* Les caractères utilisés sont des caractères Windows, donc
* vous aurez des transformations à faire pour DOS.
*
* - - - - - - - - - - - - - - - - -
*
* Programme.
*
vFichierSource="0essaiDeCopieLongue.txt" && Fichier long à copier.
vFichierCible="0Essai.txt" && Fichier de destination.
*
* Création d'un fichier cible s'il n'existe pas car xcopy demande
* si c'est un fichier ou un répertoire di le fichier de destination n'existe pas.
*
IF .NOT. FILE(vFichierCible)
Temp=FCREATE(vFichierCible) && Création du fichier cible (leurre)
FCLOSE(Temp) && Fermeture du fichier leurre.
ENDIF
*
RUN XCOPY /V /Y &vFichierSource &vFichierCible && Copie avec vérification et écrasement.
*
QUIT
*
* - - - - - - - - - - - - - - - - -