Dim fname As String = iif(flm.FolderName="", projectPath & "Attachments" ,flm.FolderName)
filesys.CopyDirectory(fname,pth,True)