Discussion :

[frco9]

Bonjour ! ,
Je souhaite déplacer certains enregistrement vers mon serveur pour les partager sur le réseau, je me suis donc tourné vers un script VBs. J'ai écrit un script cependant celui-ci ne fait rien et ne généré pourtant aucune erreur .

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
 
    Set fso = CreateObject("Scripting.FileSystemObject")
 
   'Dossier source des enregitrements 
   strFolderName = "C:\Users\Public\Recorded TV\"
 
   'Dossier de destination
   destfile = "C:\Users\Public\Recorded TV\Sample Media"
 
  Set oFolder = fso.GetFolder(strFolderName)
 
 
            For Each oFile In oFolder.Files
 
              'Je vérifie que le fichier correspond a mes critères  
             If (oFile Like (oFolder & "\" & "*_TF1_*.wtv")) Or (oFile Like (oFolder & "\" & "*_M6_*.wtv")) Then
 
              'Déplacement du fichier
              Set Ftxt = fso.GetFile(oFile)   
              Ftxt.Move (destfile & "\" & oFile.Name) 
            End If
 
            Next

Je pense que ce code est fonctionnel car sinon j'aurais une erreur ?
merci pour votre aide

[SfJ5Rpw8]

à première vue je vois rien .. mais rajoute des messages pour suivre le déroulement de ton script ... du genre :

Code :

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

wscript.echo strFolderName

Code :

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

wscript.echo ofile.Name

... à placer aux bons endroits, avant une boucle puis dans la boucle...

[frco9]

ok je vais essayer avec pour voir ce qui se passe. Ensuite je sais pas si c'est pareille , mais j'ai testé mon code en l'incluant dans une macro de vba et ça marche bizard, je vous tiens au courant merci de m'aider !

Edit : Alors j'ai essayé d'ajouter les lignes que vous m'avez indiquées à différent endroits en changeant les variables. Cependant dès que je double clique sur l'icône de mon script rien ne se passe, et si je fais "clique droit, ouvrir avec l'invite de commande" et bien il ne se passe toujours rien : j'entrevois la console qui s'ouvre mais elle se ferme instantanément

[ProgElecT]

Code :

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

destfile = "C:\Users\Public\Recorded TV\Sample Media"

Peut être un problème d'espace dans le(s) nom(s) des dossiers.
Je ne suis pas spécialiste de VBScript, mais il me semble bien avoir lut différentes discussions signalant ce probléme.

[SfJ5Rpw8]

...l'invite de commande" et bien il ne se passe toujours rien : j'entrevois la console qui s'ouvre mais elle se ferme instantanément

passe en ligne de commande, menu Exécuter puis cmd

place toi sur le bon dossier (celui qui contient ton vbs ) à grand renfort de

Code :

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

cd monrepertoire

puis execute ton vbs :

Code :

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

monScript

[frco9]

Alors :
J'ai testé l'execution avec la console "cmd" etc mais ça fais rien ci-dessous les lignes de la console :

Code :

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

1
2
C:\Users\Jeremie\Desktop>test.vbs
C:\Users\Jeremie\Desktop>

Le plus bizarre c'est que j'ai mis des echo comme vous me l'aviez conseillé donc je devrais au moins avoir le premier voila mon code avec les echo :

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
 
  Dim fso
  Dim oSourceFolder
  Dim oSubFolder
  Dim oFile
  Dim oFolder
  Dim strFolderName
  Dim i
  Dim destfile
  Dim Ftxt
 
    Set fso = CreateObject("Scripting.FileSystemObject")
 
   strFolderName = "C:\Users\Public\Recorded TV\"
   destfile = "C:\Users\Public\Recorded TV\Sample Media"
	wscript.echo strFolderName
 
  Set oFolder = fso.GetFolder(strFolderName)
  	wscript.echo oFolder
 
            For Each oFile In oFolder.Files
              wscript.echo oFile 
             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

Donc c'est peut être effectivement une histoire d'espace comme la dit ProgElect. Y a t'il un moyen de le contourner ou voyez-vous une autre source au problème

[SfJ5Rpw8]

peu-être une mauvaise option d'en registré essai :

Code :

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

cscript //D test.vbs