' Import new objects
Dim dir_Info As New io.directoryInfo(WorkingDir)
Dim fi_Info1() As io.fileinfo
fi_Info1 = dir_Info.GetFiles("*")
Dim NewFilesToUpload As New StringList
For i As Integer = 0 To fi_Info1.length-1
Dim FileFound As IO.FileInfo = fi_Info1(i)
Dim FileName As String = RemoveCreoFileVersion(FileFound.Name.ToLower) ' return the filename without the final numeric extension, returns the original file is no numeric extension is found.
Dim Ext As String = io.path.GetExtension(FileName)
If Ext = ".prt" OrElse Ext = ".asm" OrElse Ext = ".drw" OrElse Ext = ".frm" OrElse Ext = ".mfg" OrElse Ext = ".lay" OrElse Ext = ".sec" OrElse Ext = ".int" OrElse Ext = ".g" OrElse Ext = ".tmu" OrElse Ext = ".tmz" OrElse Ext = ".cem" Then