Come si riporta in output il nome del file txt analizzato?

[lotto_tom75]

Vorrei riportare se possibile in output ovvero mostrare a video a fine elaborazione anche il nome del file txt analizzato. E' possibile? Se si come? Thanks Ps: Buon 8 Marzo a tuttE

 

[lotto_tom75]

Buonanotte,
Salutando gli intervenuti .
Postiamo il listato richiesto .

Option Explicit
Sub Main
Dim sFile : sFile = ScegliFile(GetDirectoryAppData & ".txt")
Call Scrivi(sFile)
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .

Grazie mille magia!

Ps: una curiosità magico se posso sapere... come mai scrivi sempre buonanotte anche se il post riporta le 14.46? Ciao grande!