Tom's Guide > Forum > Programmation > Script VB erreur "Type incompatible: 'Dir' "

Script VB erreur "Type incompatible: 'Dir' "

Forum Programmation : Script VB erreur "Type incompatible: 'Dir' "

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
jeje45   19-04-2009 à 11:57:38

Bonjour,
Je commence déjà par préciser que je suis débutant en vb et que mes connaissances sont limitées.
Alors enfaite mon besoin initial était de faire un script qui déplacerait certain fichier que j'ai enregistré sur mon pc, vers mon serveur mais en fonction de leur nom d'enregistrement. J'ai longtemps chercher et j'ai réussi a faire un code qui marche, le voici :

Code :
  1. 'déclaration file system object
  2.  
  3.     Dim fso
  4.     Dim szFilename1
  5.     Dim szFilename
  6.     Dim szFilename2
  7.     Dim SzPath
  8.     Dim destfile
  11. 'instanciation
  12. Set fso = CreateObject("Scripting.FileSystemObject" )
  13. 'chemin d'origine
  14. SzPath = "D:\tv enregistrée"
  15. 'chemin de destination
  16. destfile = "\\server\Video\TV\"
  17. 'recuperation des fichiers concernées
  18.     szFilename1 = Dir(SzPath & "\*_TF1_*.dvr-ms" )
  19.     szFilename2 = Dir(SzPath & "\*_M6_*.dvr-ms" )
  22. 'boucle qui va déplacer les fichier contenant TF1 jusqu'à ce qu'il y en est plus
  23. While szFilename1 <> ""
  25. 'recup du fichier
  26.     szFilename1 = Dir(SzPath & "\*_TF1_*.dvr-ms" )
  28. 'Déplacement du fichier
  29. Set Ftxt = fso.GetFile(SzPath & "\" & szFilename1)  'Fichier origine
  30. Ftxt.Move (destfile & szFilename1) 'emplacement destination
  32. 'recupere le fichier restant pour que la boucle ne genère pas d'erreur
  33.     szFilename1 = Dir(SzPath & "\*_TF1_*.dvr-ms" )
  35. Wend
  37. 'boucle qui va déplacer les fichier contenant M6 jusqu'à ce qu'il y en est plus
  38. While szFilename2 <> ""
  40. 'recup du fichier
  41.     szFilename2 = Dir(SzPath & "\*_M6_*.dvr-ms" )
  43. 'Déplacement du fichier
  44. Set Ftxt = fso.GetFile(SzPath & "\" & szFilename2)  'Fichier origine
  45. Ftxt.Move (destfile & szFilename2) 'emplacement destination
  47. 'recupere le fichier restant pour que la boucle ne genère pas d'erreur
  48.     szFilename2 = Dir(SzPath & "\*_M6_*.dvr-ms" )
  50. Wend





Bon, c'est mon premier script, je pense qu'il est pas très optimisé si vous voyez des choses affreuses dite le moi :p !
Quand je dit qu'il marche enfaite il marche quand je le tape dans Visual Basic mais de excel, donc si j'ai bien compris c'est different de vbs, mais là ça marche par contre si je met ce code dans un fichier dont je change l'extension en .vbs ça ne marche pas et me gènere une erreur :

Script : Chemin de mon script
Ligne : 18
Caract.: 5
Erreur: Type incompatible: 'Dir'
Code: 800A00D
Source : Erreur d'exécution Microsoft VBScript

J'ai cherché avant de poster pour ce code d'erreur mais rien qui ne corresponde avec mon "type incompatible: 'Dir'"
En plus j'ai tester c'est vraiment les deux lignes 18 et 19 qui gênent car en les virant ça marche mais mon script ne fais plus rien ^^.

Merci

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Script VB erreur "Type incompatible: 'Dir' "
Aller à :

Il y a 1002 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,695 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens