Estrarre l'estensione di un file

Question

Salve, ho una form basata su una query ed ho aggiunto la stringa =Right([NumeroSerie],4)

e funziona quasi bene se non fosse per il fatto che all'estensione alla fine viene aggiunto # come si vede nella tabella sottostante

.pdf#
jpeg#

a parte questo problema, volevo chiedere se esiste un modo per cercare il punto dell'estensione ed estrarre quello che viene dopo a prescindere daalla lunghezza dell'estensione, anche perché le estensioni oggi sono di diverse lunghezze e non + 3 come una volta.

Ringrazio anticipatamente,

Mariano

Answer 1

ciao superDiogene,

prova come segue :

Public Function GetFileExtension(strPath As String) As String

    Dim strIn   As String

    strIn = Mid$(strPath, InStrRev(strPath, ".") + 1, 255)

    GetFileExtension = Left$(strIn, Len(strIn) - 1)

End Function

ciao, Sandro.

Answer 2

Ciao Mimmo, grazie per la risposta.

Ti allego 2 screenshot che descrivono quello che ho fatto ed il risultato che ho ottenuto.

In sintesi se non ho sbagliato qualcosa, il risultato non è cambiato o meglio ha aggiunto qualcosa.

Answer 3

Ciao Mariano,

prova con la seguente:

Mid([NumeroSerie],instr([NumeroSerie],".")+1,len([NumeroSerie])-1)

Ciao Mimmo

Answer 4

Ciao Sandro, grazie per la risposta.

Ti allego 3 screenshot che descrivono quello che ho fatto ed il risultato che ho ottenuto.

In sintesi se non ho sbagliato qualcosa, il risultato non è cambiato.

Answer 5

ciao Mariano,

copia la funzione che segue in un modulo standard e richiamala al posto della right intrisenseca, passando ad essa il path del file o il nome del file con estensione :

Public Function GetFileExtension(strPath As String) As String

    Dim strIn   As String

    strIn = Mid$(strPath, InStrRev(strPath, ".") + 1, 255)

    GetFileExtension = strIn

End Function

ciao, Sandro.