| Function Move(fpath, toFolder) fname = fso.FileNameFromPath(fpath) toFolder = IIf(Right(toFolder, 1) = "\", toFolder, toFolder & "\") Copy fpath, toFolder Kill fpath Move = toFolder & fname End Function |
File, Move |
Express News India | Freelance ecommerce web development India