Your Products have been synced, click here to refresh
Sub AfficherInfoDossier() specdossier = "C:\temp" Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(specdossier) Set fc = f.Files For Each f1 In fc s = f1.Name If Right(s, 4) = ".txt" Then MsgBox (s) End If Next End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |