Discussion :

[frco9]

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

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 je sais meme pas ecrire un test en if

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ? :

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.

[ProgElecT]

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
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+

[frco9]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !