FileCopy Extensions

[aa2zz6]

The script currently grabs every extension *.* from the $NEO_folder directory and copies the files to $WebTMS directory.

Is there a way to copy a layer name with different extension? One shapefile layer can have up to 7 extensions. I was hoping to copy certain layers and extensions rather than the entire directory.

NEO_DIMP.cpg

NEO_DIMP.prj

NEO_DIMP.shp

ect..

#include <FileConstants.au3>
#include <File.au3>

$NEO_folder = "C:\EIS\eis shape\NEO" ; Mapping Shapefiles
$WebTMS = "C:\EIS\WebTMS" ; WebTMS Program folder

$array = _FileListToArray($NEO_folder, "*.*", $FLTA_FILES)

$count = 0
For $i = 1 To $array[0]
    $result = FileCopy($NEO_folder & "\" & $array[$i], $WebTMS,$FC_OVERWRITE)
    If $result = 1 Then $count +=1
Next

MsgBox(0, "Files Copy", "Total Copied: " & $count &" Files")

 

Edited March 2, 2016 by aa2zz6

[InunoTaishou]

Store all the extensions you want to copy in an array

$ext_to_keep[] = [".cpg", ".prj", ".shp"]

Go through all the files in the folder and user _PathSplit to extract the extension. Then use _ArraySearch to see if the extension extract is in $ext_to_keep

If (_ArraySearch($ext_to_keep, extension of file) > -1) Then
    Copy File
EndIf

 

[aa2zz6]

Thanks Inuno, I'll revise the script. 

[AutoBert]

All extensions have the same length so there's no need for using _PathSplit: the native function StringRight will do the same job and is easier in handling and a little bit faster.

[TheSaint]

For $i = 1 To $array[0]
    $file = $array[$i]
    $fext = StringRight($file, 4)
    If $fext = ".cpg" Or $fext = ".prj" Then
        $result = FileCopy($NEO_folder & "\" & $file, $WebTMS,$FC_OVERWRITE)
        If $result = 1 Then $count +=1
    EndIf
Next

 

Edited March 2, 2016 by TheSaint

[aa2zz6]

Thanks for the comments and examples. I was able to use the stringleft to find certain shape file names and copy them to another directory without grabbing every file.

Edited March 2, 2016 by aa2zz6