VBScript : Script deplacement enregistrement TV

Version imprimable

Voir 40 message(s) de cette discussion en une page

Alors : Non, ça ne tombe pas sur une ligne blanche ^^ mais le chemins est il me semble faux. Dans l'ordre le resultat des msgbox

Citation:

C:\Users\Public\RECORD~1~\RECORD~1

Citation:

C:\Users\Public\RECORD~1~\SAMPLE~1

Une question est-ce normal que ce chemin ne fonctionne pas lorsque je l'utilise dans l'explorer windows ?

Pour revenir aux sources, j'ai créé un dossier sans espace ou j'ai mis mes fichiers pour voir, et bien vbs me renvoit une erreur :

le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Dim fso Dim oSourceFolder Dim oSubFolder Dim oFile Dim oFolder Dim strFolderName Dim i Dim destfile Dim Ftxt Dim sourcenew Dim destnew Set fso = CreateObject("Scripting.FileSystemObject") strFolderName = "C:\TVtest\" destfile = "C:\TVtest\dep" Set oFolder = fso.GetFolder(strFolderName) For Each oFile In oFolder.Files If (oFile Like (oFolder & "\" & "*_TF1_*.wtv")) Or (oFile Like (oFolder & "\" & "*_M6_*.wtv")) Then 'Déplacement du fichier Set Ftxt = fso.GetFile(oFile) 'Fichier origine Ftxt.Move (destfile & "\" & oFile.Name) 'emplacement destination End If Next
Maintenant l'erreur :

Citation:

Script: C:\User\ etc....
Ligne: 25
Caract. : 14
Erreur: Sub ou Function non définie
Code: 800A0023
Source : Erreur d'exécution Microsoft VBScript

Je suis si nul que ça :cry: je sais meme pas ecrire un test en if :aie:

Citation:

Une question est-ce normal que ce chemin ne fonctionne pas lorsque je l'utilise dans l'explorer windows ?

Je suis sous VISTA famillial
En lui mettant le nom cours, pas de problème sur mon ordi.

Je fini par me demander si la fonction Like existe sous VBScript
voir cette discussion

j'ai fait les repertoires voulues et mis 8 fichiers .txt commencant par Prem et Deux dans le dossier C:\TVtest\ et suite a ce code ils ce retrouvent bien dans le dossier C:\TVtest\dep
Donc avec Instr cela devient
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Dim fso Dim oSourceFolder Dim oSubFolder Dim oFile Dim oFolder Dim strFolderName Dim i Dim destfile Dim Ftxt Dim sourcenew Dim destnew Set fso = CreateObject("Scripting.FileSystemObject") strFolderName = "C:\TVtest\" destfile = "C:\TVtest\dep" Set oFolder = fso.GetFolder(strFolderName) For Each oFile In oFolder.Files 'msgbox oFile.name If instr(1,oFile.Name,"Prem") or instr(1,oFile.Name,"Deux") Then 'Déplacement du fichier 'msgbox oFile.name Set Ftxt = fso.GetFile(oFile) 'Fichier origine Ftxt.Move (destfile & "\" & oFile.Name) 'emplacement destination End If Next
A toi de voir la suite pour l'addapter ;)

10/05/2009, 21h52
frco9

Ok merci je vais étudier tous ça d'ici demain, merci pour l'aide je te tiens au courant quant au chemin avec nom cours c'est a dire ? :

Citation:

C:\Users\Public\RECORD~1~\RECORD~1

Je viens de passer a seven mais je pense pas que ça change quelque chose :?

PS : quant au LIKE on ne peut pas vraiment se fier a tous les sites.
10/05/2009, 22h04
ProgElecT

Citation:

Envoyé par frco9

Ok merci je vais étudier tous ça d'ici demain, merci pour l'aide je te tiens au courant quant au chemin avec nom cours c'est a dire ? :

Je viens de passer a seven mais je pense pas que ça change quelque chose :?

PS : quant au LIKE on ne peut pas vraiment se fier a tous les sites.

Si a DVP :mouarf:
J'attend ta solution, on en apprend tous les jours, donc les conclusions d'une discussion avec un code qui a resolu le problème est apprécier de tous.
A+

:salut:

:king: Bon merci beaucoup maintenant je sais ou venir si j'ai un problème. Le problème était bien le LIKE maintenant avec le instr ça marche très bien. Je te remerci voila le code final :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim fso
  Dim oSourceFolder
  Dim oSubFolder
  Dim oFile
  Dim oFolder
  Dim strFolderName
  Dim i
  Dim destfile
  Dim Ftxt
  Dim sourcenew
  Dim destnew
 
    Set fso = CreateObject("Scripting.FileSystemObject")
 
   strFolderName = "C:\Users\Public\Recorded TV\"
 
   destfile = "\\server\Index System\TV"
 
 
  Set oFolder = fso.GetFolder(strFolderName)
 
 
            For Each oFile In oFolder.Files
              'msgbox oFile.name
             If instr(1,oFile.Name,"TF1") or instr(1,oFile.Name,"M6") or instr(1,oFile.Name,"W9") Then
              'Déplacement du fichier
              'msgbox oFile.name
              Set Ftxt = fso.GetFile(oFile)   'Fichier origine
              Ftxt.Move (destfile & "\" & oFile.Name) 'emplacement destination
            End If
 
            Next

A une prochaine fois je l'espère !

Voir 40 message(s) de cette discussion en une page