>cCompagnyName = [Résidence "la belle fleur" ( * Sanatorium ) ] >Must be >cCompgnyFich = [Résidence la belle fleur ( Sanatorium ) ] > >>
cCompagnyName = [Résidence "la belle fleur" ( * Sanatorium ) ] ?ValidFolderName(cCompagnyName) FUNCTION ValidFolderName(lcFolderName) LOCAL lcBadChars lcBadChars = ["'*?/\] && Add all chars you want to remove here lcFolderName = CHRTRAN(lcFolderName,lcBadChars,[]) DO WHILE AT([ ], lcFolderName) # 0 && Remove all double spaces lcFolderName = STRTRAN(lcFolderName,[ ],[ ]) ENDDO RETURN lcFolderName