Fichier qui n'a pas d'extension

Question

Bonjour, j'ai besoin d'aide pour un problème assez particulier. Je dois à l'aide d'une macro vba aller chercher sur un serveur des fichier qui n'ont simplement pas d’extension. Les fichier sont créer par un tiers logiciel et sont mis par défaut dans des répertoires.

Mon programme va récupérer ces fichier, les renommer et les replacer sur le serveur approprié dans les bon répertoire.

Donc, est-ce que quelqu'un sait comment on fait, en vba, pour aller chercher des fichiers qui ont comme nom: "_jpg" par exemple.

Merci de votre aide!

EngueEngue · Answer

Ton fichier a une extension c'est juste que tu ne la vois pas

Utilise le logiciel TrIDNet pour la découvrir...

Sinon tu peux te servir de ce que tu connais sur le fichier pour le copier en bouclant

Sub toto()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
dossier = "C:\Users\"
Set objFiles = FSO.GetFolder(dossier)
'Boucle sur les fichiers
For Each Item In objFiles.Files
    If Left(Item.Name, 4) = "_jpg" Then
        FSO.CopyFile Item.Path, "C:\toto\"
    End If
Next Item
End Sub