FORUM Syndrome-OC - Jacky-PC


  Programmation


  Langage interprété(Php, Perl...)


  [VB-VBS] Ecriture sur un média amovible sous win XP SP2

 




cydoo, bool@y Achat/vente : rosco Le salon de discussion : R4v3n, KneXos, 1 utilisateur anonyme et 12 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB-VBS] Ecriture sur un média amovible sous win XP SP2

n°7104
The_Real_S​lim_JeSuS
Citron Addict
Posté le 15-12-2006 à 21:48:49  profilanswer
 

Coucou
 
Cela faisait quelques temps déjà que je n'avais pas posté utile sur la board.
 
Bon bref, Mon petit papa s'est offert il y a quelques temps déjà un gps nomad tomtom.
 
Avec ses quelques années, il éprouve quelques difficultés à mettre à jour ses POI de radar fixe (il se goinfre tous les tuto à chaques fois avec la peur au ventre de déglinguer quelquechose).
 
Bref je me suis proposé de lui automatiser la chose.
 
Avec au choix un script VBS ou directement sous VB express, j'effectue les opérations suivantes :
 
- Téléchargement du zip tomtom sur radarfixe.com vers un fichier temporaire
- Décompression du zip
- Recherche du disque sur lequel se trouve le gps tomtom ou la carte SD le cas échéant
- copie des fichiers
 
Et c'est là que le bas blaisse windows XP (à priori le SP2) dispose d'une sécuritée qui est telle que manuelement les fichiers peuvent etre copiés et glissés dans les média amovible (Clé usb, SD card, ou le gps relié en usb) mais que ce soit via un batch un script ou VB, j'ai droit à un retour comme quoi le média est protégé en écriture et mon automatisation echoue.
 
Je procede à un simple en vbs

Code :
  1. fso.CopyFile "c:\poiinstaller\tmp\RF.bmp" , tomtomdir , OverWriteFiles


où tomtomdir prends une valeur type "I:\France-map" en fonction du lecteur détecté.
 
sous VB lorsque j'ai tenté le coup c'etait simplement filecopy et le retour est le suivant : "Impossible de trouver une partie du chemin d'accès 'E:\France-map\'.".
 
Alors je me demande donc comment contourner le probleme ou m'identifier comme ayant droit afin d'effectuer la copie dans les regles.
 
J'ai pas mal écumé la toile mais je n'ai pas trouvé de réponse concrete.
 
Merci de votre aide.
 
 
 

mood
Google
Posté le 15-12-2006 à 21:48:49  profilanswer
 

n°7111
Trracer
Posté le 16-12-2006 à 12:10:20  profilanswer
 

Bizarre, je suis sous XP SP2 et j'ai pas de soucis pour copier un fichier quelconque sur une carte mémoire avec vbscript (je viens de tester)...
 
Ca me fait penser qu'il faudrait bien que je fasse le même script pour mon père qui a aussi du mal avec la mise à jour des POI :lol:
Par contre accèder au PDA directement par script je sais pas comment faire, c'est pas une unité amovible ("My PocketPC" ou un truc du genre). Faudra que j'etudie le truc quand je serais chez mes parents.


Message édité par Trracer le 16-12-2006 à 12:11:00
n°7114
The_Real_S​lim_JeSuS
Citron Addict
Posté le 17-12-2006 à 23:06:35  profilanswer
 

Arf,  
 
Pour mon popa c'est un tomtom one, soit tu rentre la SD gerrée comme média amovibe, soit tu le branche en USB et c'est le même systeme.
 
Tu utilise quel commande, FSO.copyfile ... Standard ?
 
Ca me coupe la chique.

n°7115
Trracer
Posté le 18-12-2006 à 10:11:36  profilanswer
 

Oui, oui j'utilise copyfile standard (de toute façon y'a pas trop le choix), je te poste mon ch'tit bout de code ce soir si tu veux. Mais c'est la même chose que toi, hormis que je n'utilise pas le 3e paramètres (OverWriteFiles), qui je suppose doit etre un boolean.

n°7116
The_Real_S​lim_JeSuS
Citron Addict
Posté le 18-12-2006 à 19:51:24  profilanswer
 

je vais essayer sans l'overwrite. Je te dirais ca.

n°7117
Trracer
Posté le 18-12-2006 à 20:43:32  profilanswer
 

Ouais y'a pas de raison que cela ne fonctionne pas...
 
Voila le bout de code que j'ai testé :
 

Code :
  1. fileToCopy = "c:\celtic_playlist.txt"
  2. targetFolder = "T:\"
  3. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  4. objFSO.CopyFile fileToCopy, targetFolder
  5. If Err = 0 Then
  6.   WScript.Echo "Copied file " & fileToCopy  & " to folder " & targetFolder & "."
  7. Else
  8.   WScript.Echo "Unable to copy file " & fileToCopy & "."
  9. End If

mood
Google
Posté le 18-12-2006 à 20:43:32  profilanswer
 


Aller à :
Ajouter une réponse

  FORUM Syndrome-OC - Jacky-PC


  Programmation


  Langage interprété(Php, Perl...)


  [VB-VBS] Ecriture sur un média amovible sous win XP SP2

 

Hit Parade