If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file "." Or $file ".") AND StringInStr($current & "\" & $file, $pstdest) = 0 Then _FileWriteLog($backupdest&"\" & "pstlog.log", "**FAIL** BACKUP FAILURE: " & $current & "\" & $file) _FileWriteLog($backupdest&"\" & "pstlog.log", "**RENAME** BACKUP SUCCESS: " & $current & "\" & $file & " RENAMED TO: " & $newfilename) _FileWriteLog($backupdest&"\" & "pstlog.log", "BACKUP SUCCESS: " & $current & "\" & $file) $result = FileCopyP($current & "\" & $file, $pstdest) MsgBox(4096,"PST FILENAME DUPLICATE", "Original PST: " & $filexists & " New PST Filename: " & $newfilename, 10) If FileCopy($filexists, $newfilename) Then ExitLoop $newfilename = $filename & "(" & $i & ")" & $extension $extension = StringMid($filexists, $position) $filename = StringLeft($filexists, $position -1) $position = StringInStr($filexists, '.', 0, -1) If Or StringLen($file) "." Or $file ".") And StringRight($file, 3) = "pst" or StringRight($file, 3) = "pab" Then Local $search = FileFindFirstFile($current & "\*.*") Expand collapse popup Func Search($current)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |