cs_MysTiKK
Messages postés10Date d'inscriptionsamedi 19 mars 2005StatutMembreDernière intervention13 mars 2009
-
13 mars 2009 à 22:49
ecosmose
Messages postés46Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention30 septembre 2010
-
30 sept. 2010 à 17:30
Bonjour a tous,
Je cherche comment copier un fichier qui est utilisé par le système. J'utilise FileCopy mais il me répond que le fichier est actuellement utilisé.
Merci d'avance pour vos réponses c'est assez important !
Ah....!!
Pour copier un ficheir utilisé par le système ?
Dis-moi : as-tu essayé, toi-même ????? (avant de suggérer "Il peut essayer avec l'api CopyFile") ???
Si tu ne l'as pas fait, essaye donc !!!!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 14 mars 2009 à 20:44
Je rappele que MysTiKK dis développer en VB6 et souhaiter, depuis VB6, pouvoir copier un fichier utilisé par le système.
Des copies en "image" sont toujours possibles (comme plus d'un le savent), mais pas depuis VB6 ...et souvent pour des raisons difficilement avouables ...
ecosmose
Messages postés46Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention30 septembre 2010 30 sept. 2010 à 17:30
Bonjour à tous,
Je déterre ce sujet trouvé depuis mon pote google pour vous présenter mon problème. Je tente en vbs de copier un fichier distant en utilisant un VPN + net use. j'utilise le FileSystemObject et la fonction CopyFile. J'arrive correctement à copier le fichier mais c'est le processus qui l'uitlise qui plante. Auriez vous une idée de l'origine du problème et des solutions à adopter pour le résoudre ?
Extrait du code :
le Bat :
net use v: /delete
rasdial VPN login mdp
net use v: \\192.168.X.X\Archive
wscript c:\mon_script.vbs
net use v: /delete
rasdial VPN /disconnect
Le script :
on error resume next
src="v:\Mesure\mon_fichier.csv"
dst="c:"
wscript.sleep(2000)
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.DriveExists("v:") then
objFSO.CopyFile src, dst , true
end if
set objFSO = Nothing
Merci pour vos réponse.
BINOME de ECOSMOSE
Association ecologique d'actions de culture et d'Informations