>>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 >