sFileExt = GetExtension( sFileName ) ; sFilePart = RemoveExtension( sFileName ); while( fileExists( sServerDir & sFileName ) ) { counter = counter + 1; sFileName = sFilePart & '(#counter#).' & CFFILE.ClientFileExt; errorNumber = 201; } while( i lte qDir.recordCount ) { if( compareNoCase( qDir.type[i], "FILE" ) and not listFind( ".,..", qDir.name[i] ) ) { folders = folders & '' ; } i = i + 1; } #folders# while( i lte qDir.recordCount ) { if( not compareNoCase( qDir.type[i], "DIR" ) and not listFind( ".,..", qDir.name[i] ) ) { folders = folders & '' ; } else if( not compareNoCase( qDir.type[i], "FILE" ) ) { fileSizeKB = round(qDir.size[i] / 1024) ; files = files & '' ; } i = i + 1 ; } #folders# #files# sNewFolderName = SanitizeFolderName( sNewFolderName ) ;