FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WM - CE - Como copiar arquivos Hyperfile via comando ceCopyFile ()?
WM - CE - Como copiar arquivos Hyperfile via comando ceCopyFile ()?
Iniciado por BOLLER ADRIANO, 02,jul. 2016 05:00 - No hay respuesta
Conéctese…
BOLLER ADRIANO
#1
Miembro registrado
3.659 mensajes
Popularité : +175 (223 votes)
Publicado el 02,julio 2016 - 05:00
//Variable
s
Repertoire est une
chaîne
=
ComplèteRep
(
fRepExe
(
)
)
Message
(
Case1
,
"Copie des fichiers FIC sur le POCKET"
)
fListeFichier
(
s
Repertoire
+
"*.fic"
,
pCopieFichiersSurPPC
)
Message
(
Case1
,
"Copie des fichiers NDX sur le POCKET"
)
fListeFichier
(
s
Repertoire
+
"*.ndx"
,
pCopieFichiersSurPPC
)
Message
(
Case1
,
"Copie des fichiers MMO sur le POCKET"
)
fListeFichier
(
s
Repertoire
+
"*.mmo"
,
pCopieFichiersSurPPC
)
Message
(
Case1
,
""
)
//******************************
//Détail de la procédure pCopieFichiersSurPPC
//******************************
Procedure
pCopieFichiersSurPPC
(
s
Chemin
,
s
NomFic
,
c
Change
,
n
Pointeur
)
//Variables
s
NomFichier est une
chaîne
=
ComplèteRep
(
s
Chemin
) +
s
NomFic
ResCopie est un
booléen
Trace
(
"Copie du fichier sur le pocket : "
+
s
NomFichier
)
Message
(
"Début de copie du fichier sur le pocket : "
+
s
NomFichier
)
//Copie des fichiers sur le pocket
ResCopie
=
ceCopieFichier
(
cePCVersPocket
+
ceEcrase
,
s
NomFichier
,
s
CheminDonnéesPPC
+
s
NomFic
)
Trace
(
"Retour de la copie du fichier sur le POCKET : "
+
ResCopie
)
// Problème rencontré ?
SI
ResCopie
=
Vrai
ALORS
//Ne rien faire
Message
(
Case1
,
"Le fichier "
+
s
NomFichier
+
" a été copié sur le pocket PC."
)
SINON
Erreur
(
"Erreur lors de la copie du fichier "
+
s
NomFichier
+
" sur le Pocket PC."
+
CR
+
ErreurInfo
(
)
)
RETOUR
FIN
//Dans cet exemple, sCheminDonnéesPPC est une chaîne = "\Carte de stockage\Pocket Notebook\"
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto