If Right(DestinationDir, 1) <> "\" Then_
   DestinationDir = DestinationDir & "\"
程序在此,请大虾过目指点.谢了