Opgelost Extensies

[mvdhoven]

Goedemiddag,

Ik heb al veel informatie hier van gehaald maar dit kon ik nog niet vinden.

Ik heb in excel een vba module voor het maken van een file die een hyperlink maak van een document in een map naar keuze.
Dat werkt goed voor .pdf of .msg .docx enz maar ik krijg het allen voor elkaar met 1 extensie, nu zou ik willen dat de extensies niet meer belangrijk zijn dus alles door elkaar en alleen op naam zoeken. ( dus alle extensies door elkaar )
In windows doe je dan normaal *.* maar helaas werkt dat niet.
Moet wel kunnen denk ik gebruik onderstaande VBA code.
Zou iemand mij daar in kunnen helpen.

Sub OphalenFiles()

Dim OFSO As Object
Dim oFile As Object
Dim i As Integer

Dim StartPath As String
StartPath = "G:\10 Sample-Login\Levering Pakketten\Barcode mail"


Set OFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = OFSO.GetFolder(StartPath)
OFSO.GetExtensionName (".msg")

For Each oFile In oFolder.Files
      
          
     If ActiveCell.Offset(0, -1).Value & ".msg" = oFile.ShortName Then
      ActiveSheet.Hyperlinks.Add Cells(i + ActiveCell.Row, 5), Address:=oFile, TextToDisplay:="File"
     i = i + 1
     End If[
/CODE]

Alvast bedankt

 

[snb]

gebruik VBA : Dir

 

[mvdhoven]

Hoi SNB,

Dank je wel voor terug koppeling maar ben niet zo held in VBA, zoeken en plakken dan kom ik tot hier .
Wat moet ik dan precies vervangen voor de Dir functie