Mi scuso, ma come già detto il rimbambimento avanza inesorabile
Subito avevo pensato che il suggerimento di
cogier non fosse corretto perché se il nome del file è sbagliato
isDir restituisce comunque false, ma usandolo insieme a exist() funziona perfettamente.
Public Sub Main()
Dim sVar As String = User.Home &/ "<un file esistente>"
Dim e, s As String
If Exist(sVar) Then
If Not IsDir(sVar) Then
e = File.Ext(sVar)
s = File.BaseName(sVar)
If e Then
Print "La stringa contiene un file con estensione "; e; " il cui nome è "; s
Else
Print "La stringa contiene un file senza estensione il cui nome è "; s
Endif
Else
Print "La stringa contiene solo una directory"
Endif
Else
Print "Il percorso "; sVar; " non esiste!"
Endif
End