Jump to content
Sign in to follow this  
n9mfk9

filecopy? showing 0 when i check to see if file copy ok

Recommended Posts

n9mfk9

Hi all I am have trouble with Filecopy

no matter what i do i get 0 instead of 1

#Include <File.au3>
#Include <Array.au3>
$FileOut= 'C:\new\error.txt'
$originalDir = 'C:\wdisplay'
$destinationDir= 'C:\new\wd7\'
$hFileOut = FileOpen($FileOut, 2)
DirCreate($destinationDir)
$status=''
$FileList=_FileListToArray($originalDir,"**",1)
$FolderList=_FileListToArray($originalDir, '**', 2)

If @Error=1 Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf

;_ArrayDisplay($FileList,"$FileList")
;_ArrayDisplay($FolderList,'$FolderList')

For $n= 1 to $FileList[0]
    $Filetest= FileCopy($originalDir,$destinationDir,8)
Select
Case $Filetest = 1 
$Filetest = "OK"
 case $Filetest = 0
$Filetest = "error"     
EndSelect
$text1= $originalDir&$FileList[$n]&' -> ' &$destinationDir&$FileList[$n] &' '& $Filetest&@CRLF

FileWrite($hFileOut, $text1)
;MsgBox(0,"", $text1)
Next
For $n= 1 to $FolderList[0]
$DirTest = DirCopy($originalDir,$destinationDir,1)
Select
Case $DirTest = 1 
$DirTest = "OK"
 case $DirTest =0
$DirTest = "error"  
EndSelect
$text2= $originalDir&$FolderList[$n]&' -> ' &$destinationDir&$FolderList[$n] &' '& $DirTest&@CRLF
FileWrite($hFileOut, $text2)
;MsgBox(0,"", $text2)
Next

FileClose($hFileOut)

thanks for any help

Share this post


Link to post
Share on other sites
SmOke_N

Going to have a hell of a time if the file stays open to copy it somewhere :) ...

#Include <File.au3>
#Include <Array.au3>
$FileOut = 'C:\new\error.txt'
$originalDir = 'C:\wdisplay'
$destinationDir = 'C:\new\wd7\'
FileClose(FileOpen($FileOut, 2))
DirCreate($destinationDir)
$status = ''
$FileList = _FileListToArray($originalDir, "**", 1)
$FolderList = _FileListToArray($originalDir, '**', 2)
If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
EndIf
;_ArrayDisplay($FileList,"$FileList")
;_ArrayDisplay($FolderList,'$FolderList')
For $n = 1 To $FileList[0]
    $Filetest = FileCopy($originalDir, $destinationDir, 8)
    Select
        Case $Filetest = 1
            $Filetest = "OK"
        Case $Filetest = 0
            $Filetest = "error"
    EndSelect
    $text1 = $originalDir & $FileList[$n] & ' -> ' & $destinationDir & $FileList[$n] & ' ' & $Filetest & @CRLF
    FileWrite($FileOut, $text1)
    ;MsgBox(0,"", $text1)
Next
For $n = 1 To $FolderList[0]
    $DirTest = DirCopy($originalDir, $destinationDir, 1)
    Select
        Case $DirTest = 1
            $DirTest = "OK"
        Case $DirTest = 0
            $DirTest = "error"
    EndSelect
    $text2 = $originalDir & $FolderList[$n] & ' -> ' & $destinationDir & $FolderList[$n] & ' ' & $DirTest & @CRLF
    FileWrite($FileOut, $text2)
    ;MsgBox(0,"", $text2)
Next
Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites
n9mfk9

Hi Smoke_n,

I have a question why do fileClose(FileOpen($FileOut, 2)) at the top why not do a file close at the end?

thanks

Going to have a hell of a time if the file stays open to copy it somewhere :) ...

#Include <File.au3>
#Include <Array.au3>
$FileOut = 'C:\new\error.txt'
$originalDir = 'C:\wdisplay'
$destinationDir = 'C:\new\wd7\'
FileClose(FileOpen($FileOut, 2))
DirCreate($destinationDir)
$status = ''
$FileList = _FileListToArray($originalDir, "**", 1)
$FolderList = _FileListToArray($originalDir, '**', 2)
If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
EndIf
;_ArrayDisplay($FileList,"$FileList")
;_ArrayDisplay($FolderList,'$FolderList')
For $n = 1 To $FileList[0]
    $Filetest = FileCopy($originalDir, $destinationDir, 8)
    Select
        Case $Filetest = 1
            $Filetest = "OK"
        Case $Filetest = 0
            $Filetest = "error"
    EndSelect
    $text1 = $originalDir & $FileList[$n] & ' -> ' & $destinationDir & $FileList[$n] & ' ' & $Filetest & @CRLF
    FileWrite($FileOut, $text1)
    ;MsgBox(0,"", $text1)
Next
For $n = 1 To $FolderList[0]
    $DirTest = DirCopy($originalDir, $destinationDir, 1)
    Select
        Case $DirTest = 1
            $DirTest = "OK"
        Case $DirTest = 0
            $DirTest = "error"
    EndSelect
    $text2 = $originalDir & $FolderList[$n] & ' -> ' & $destinationDir & $FolderList[$n] & ' ' & $DirTest & @CRLF
    FileWrite($FileOut, $text2)
    ;MsgBox(0,"", $text2)
Next

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×