Come scoprire se un percorso contiene un nome di file valido ?

[vuott]

https://forum.gambas.one/viewtopic.php?f=4&t=840

[Gianluigi]

Ammesso e non concesso che io abbia capito quello che si vuole ottenere, proporrei questo codice:

Codice: [Seleziona]

Public Sub Main()

  Dim sVar As String = User.Home &/ "<un file esistente>"
  Dim e, s As String
  
  If Exist(sVar) Then
    e = File.Ext(sVar)
    If e Then
      s = File.BaseName(sVar)
      Print "La stringa contiene un file con estensione "; e; " il cui nome è "; s
    Endif
  Else
    Print "Il percorso "; sVar; " non esiste!"
    Return
  Endif

End

Naturalmente funziona solo se il file ha un estensione 

[Gianluigi]

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.

Codice: [Seleziona]

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