Hladanie existenice suborov v priecinku v hociakom formate

0
0

Vytvoril som si makro:
Sub fileExistsFSORange()
Dim Rng As Range
Set fso_obj = CreateObject("Scripting.FileSystemObject")

Set Rng = Selection

For Each Cell In Rng
If fso_obj.fileExists(Cell) Then
Cell.Font.Color = vbGreen
Else
Cell.Font.Color = vbRed
End If
Next Cell
End Sub

Takze ked si dam do okna cestu, napr E:\test\skuska.pdf, oznacim a zapnem makro, tak sa text zozelenie alebo zcervenie podla toho ci tam je.
No musi tam byt aj format suboru. Ako urobyt aby nerozlisovalo format suboru? skusal som zastupitelny znak E:\test\skuska.* ale to nefungovalo.

Marked as spam
Odeslal Pavel
Otázka položena 4.9.2019 15:41
15 views
0
Private answer

Technika přes "Dir", viz wall.cz

Marked as spam
Odeslal xlnc
Odpověděl 5.9.2019 14:51

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]