il risultato mi crea la lista file ma con estensione. Non riesco a modificarla perché dia il risultato del "solo" nome e senza .* (estensione).
Grazie
- Codice: Seleziona tutto
Sub LeggeFileInDir()
Dim strFile As String
Dim r As Integer
mFolder = "f:\cannella\" ' directory di cui ottenere in colonna A la lista file
strFile = Dir(mFolder & "*.*")
r = 1
Do While strFile <> ""
Cells(r, 1) = strFile
strFile = Dir
r = r + 1
Loop
End Sub