>*---------------------------------------------------------------------------------
>* ut 02/2008 TRouver un nom valide pour enregister le compagnyName
>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
>
>lcFolderName = CHRTRAN(lcFolderName,[ ],[_])
>lcFolderName = CHRTRAN(lcFolderName,[é],[e])
>lcFolderName = CHRTRAN(lcFolderName,[è],[e])
>lcFolderName = CHRTRAN(lcFolderName,[ê],[e])
>lcFolderName = CHRTRAN(lcFolderName,[à],[a])
>lcFolderName = CHRTRAN(lcFolderName,[â],[a])
>RETURN lcFolderName
>