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