troppi spazi

[visual_b]

questo codice:

dim i as long
dim percorso as string
percorso=Space(255)
i = SHGetFolderPath(0, 7, 0, 0, percorso)

mi ritorna il path della cartella che desidero + un carattere speciale (nn so quale) e un centinaio di spazi vuoti.

C'è una funzione che mi ellimina questi spazi

[VICIUS]

prova con Trim (stringa) se non ricordo male dovrebbe cancellare eventuali spazi sia a destra che a sinistra.

ciao

[matpez]

Se non ricordo male, e non credo, ti torna a fine strgina un carattere nullo, cioè il chr(0) / vbNullChar

Per cui per prendere il valore devi fare:

    
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If

[visual_b]

funziona!
grazie a tutti