Discussion :

[johnvlesk]

Bonjour à tous !

Je souhaite pouvoir récupérer le nom d'un fichier (pour utilisation en pièce jointe d'un email). qui ce trouve dans un répertoire prédéfini.

Jusqu'à là, je n'ai pas de souci. Cela-dit, le nom du fichier que je dois récupérer change lors que chaque génération (depuis une application tierce).

Les seules info qui sont constantes sont : le début du nom et l'entension ".txt", sachant qu'il n'y peut avoir qu'un seul fichier .txt dans le répertoire en même temps. (puisque archivage dans la suite du script).

Il est évident que des méthodes telles que *.txt ne sont pas valables alors dans l'absolu, j'ai pensé bouclé et pendant la séquence renommer ce fichier avec une autre extension. Mais cela ne fonctionne pas.

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
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:\'} Where " _
        & "ResultClass = CIM_DataFile")
 
DestFile "Test.xss"
 
 
For Each objFile In FileList
    strDate = Right(objFile.Name, 3)
    If strDate = "txt" Then 
    objFile.Rename(DestFile)
	    End If
Set objFile = Nothing	    
Next

Ni d'ailleurs avec cette manière :

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
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:\'} Where " _
        & "ResultClass = CIM_DataFile")
 
 
For Each objFile In FileList
    If objFile.Extension = "txt" Then
        strNewName = "test" & Day(Date) & ".txt"
 
         errResult = objFile.Rename(strNewName)
    End If
Next

J'espère que quelqu'un pourra m'aider.

Merci d'avance.

John

[hackoofr]

essaye comme ceci et dis moi le résultat

Code :

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

1
2
3
4
5
6
For Each objFile In FileList
Set fso = createObject("Scripting.FileSystemObject")
If Ucase(fso.GetExtensionName(objFile.Name))="TXT" Then
'Instructions 
end if
Next

[johnvlesk]

Hello merci pour ta réponse

Cela-dit, j'ai une erreur d'exécution avec la ligne ...If Ucase.... :

Objet requis: "
Code: 800A01A8

Sachant que le fichier (de test) se trouvant à la racine de mon C:\ se nomnme "Copie.txt" et que je souhaite le renommer en "Test.xss".

J'ai adapté comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='c:\'} Where " _
        & "ResultClass = CIM_DataFile")
 
DestFile = "Test.xss"
For Each objFile In FileList
If Ucase(fso.GetExtensionName(objFile.Name))="TXT" Then
    objFile.Rename(DestFile)
end if
Next

Il y a certainement une erreur de syntaxe

[hackoofr]

Il vous manque cette ligne pour la création de l'objet fso:

Code :

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

Set fso = createObject("Scripting.FileSystemObject")

et pour le renommage des fichiers il faut voir la Comment déplacer,renommer un fichier ?

[johnvlesk]

J'y crois pas ! il faut que je dorme un peu moi... en effet, l'oubli ne pardonne pas

Je me suis donc inspiré de Hakoofr + faq et en définitif cela donne ça :

Code :

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

1
2
3
4
5
6
For Each objFile In FileList
Set fso = createObject("Scripting.FileSystemObject")
If Ucase(fso.GetExtensionName(objFile.Name))="TXT" Then
FSO.MoveFile (objFile.Name),"c:\Test.xss"
end if 
Next

MERCI pour l'aide !

[l_autodidacte]

For Each objFile In FileList
Set fso = createObject("Scripting.FileSystemObject")
If Ucase(fso.GetExtensionName(objFile.Name))="TXT" Then
FSO.MoveFile (objFile.Name),"c:\Test.xss"
end if
Next

Pourquoi créer à chaque itération l'objet FSO ?
Il faut mettre

Code :

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

FSO.MoveFile (objFile.Path),"c:\Test.xss"

De plus, Chaque fichier .txt va être déplacé et écrase ton fichier "C:\Test.xss".
Je suggère l'ajout d'un indice numérique pour conserver les différentes copies si tu en as besoin :

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
Option Explicit
Dim fso, objFile, Ind, objFolder, FileList
 
 Set fso = createObject("Scripting.FileSystemObject")
 Set FileList = fso.GetFolder("C:\User")
 
 For Each objFile In FileList.Files
   If Ucase(fso.GetExtensionName(objFile.Name))="TXT" Then
      FSO.MoveFile (objFile.Path),"C:\D_USER\Test" & CStr(GetLastFileIndex(objFile.Path)+1) & ".xss"
   End If
 Next
 Function GetLastFileIndex(strFile)
  Dim NewIndex(30),I,Ret
  I=-1
  For Each objFile In fso.GetFolder("C:\D_USER\").Files
     On Error Resume Next
     I = I + 1
	 Ret=fso.GetBaseName(objFile.Name)
	 NewIndex(I) = Mid(Ret,5,Len(Ret))
  Next	 
   If Mid(Ret,5,Len(Ret))="" Then 
        GetLastFileIndex = 0
   Else
        GetLastFileIndex = NewIndex(I)
   End If		
 End Function

[johnvlesk]

Oui effectivement, c'est une bonne idée, mais dans mon cas, il n'y aura qu'un seul fichier .txt dans le répertoire définit car dans la suite de mon script, je l'utilise et ensuite l'archive dans un autre répertoire.

Mais effectivement s'il en avait plusieurs et qu'il y aurait d'autres fichiers, cela me poserait de sérieux problème avec le code que j'ai posté.

Merci pour l'aide.