function aDrives() {
	var FSO = new ActiveXObject("Scripting.FileSystemObject");

	// Lê as unidades de disco disponíveis pelo sistema
	var DriveCollection = FSO.Drives;
	var result = bidimArray(DriveCollection.Count,3);
	i=0;
	for(var objEnum = new Enumerator(DriveCollection); !objEnum.atEnd(); objEnum.moveNext()) {
		if(objEnum.item().IsReady==true) {
			result[i][0] = objEnum.item();
			result[i][1] = (objEnum.item().VolumeName==undefined)?"":objEnum.item().VolumeName;
			result[i][2] = (objEnum.item().FreeSpace==undefined)?"":objEnum.item().FreeSpace;
			i++;
		} 
	}
	
	arrayLength = i;
	var finalResult = bidimArray(arrayLength,3);
	for(i=0;i<arrayLength;i++) {
		finalResult[i][0] = result[i][0];
		finalResult[i][1] = result[i][1];
		finalResult[i][2] = result[i][2];
	}
	

	// Destroi and remove a referência do objeto enumerator objEnum
	delete objEnum;
	objEnum = null;
	
	// Remove a referência do objeto Drive DriveCollection
	DriveCollection = null;
	delete result;
	result = null;
	
	// Destroi and remove a referência do objeto FileSystem FSO
	delete FSO;
	FSO = null;
	return(finalResult);
}

function aFolders(parentFolderName) {
	var FSO = new ActiveXObject("Scripting.FileSystemObject");
	// Lê subpastas da pasta atual
	var Folder = FSO.GetFolder(parentFolderName);
	var FolderCollection = Folder.SubFolders;
	
	var result = new Array(FolderCollection.Count);
	i=0;
	for(var objEnum = new Enumerator(FolderCollection); !objEnum.atEnd(); objEnum.moveNext()) {
	    result[i] = objEnum.item();
		i++;
	}
	
	// Destroi and remove a referência do objeto enumerator objEnum
	delete objEnum;
	objEnum = null;
	
	// Remove a referência do objeto SubFolder FolderCollection e do objeto GetFolder() Folder
	FolderCollection = null;
	Folder = null;
	
	// Destroi and remove a referência do objeto FileSystem FSO
	delete FSO;
	FSO = null;
	
	return(result);
}

function aFiles(parentFolderName) {
	var FSO = new ActiveXObject("Scripting.FileSystemObject");

	// Arquivos da pasta atual
	var Folder = FSO.GetFolder(parentFolderName);
	var FileCollection = Folder.Files;
	
	var result = new Array(FileCollection.Count);
	i=0;
	for(var objEnum = new Enumerator(FileCollection); !objEnum.atEnd(); objEnum.moveNext()) {
	    result[i] = objEnum.item();
		i++;
	}

	// Destroy and de-reference enumerator object
	delete objEnum;
	objEnum = null;
	
	// De-reference FileCollection and Folder object
	FileCollection = null;
	Folder = null;
	
	// Destroy and de-reference FileSystemObject
	delete FSO;
	FSO = null;
	
	return(result);
}

function listDrives(selectName) {
	var FSO = new ActiveXObject("Scripting.FileSystemObject");

	// Lê as unidades de disco disponíveis pelo sistema
	var DriveCollection = FSO.Drives;
	cleanSelect(selectName);
	for(var objEnum = new Enumerator(DriveCollection); !objEnum.atEnd(); objEnum.moveNext()) {
	    strDriveName = objEnum.item();
		strVolumeName = "";
		strFreeSpace = "";
		strCalc = "0";
		
		if(objEnum.item().IsReady) {
			strVolumeName = objEnum.item().VolumeName;
			strFreeSpace = objEnum.item().FreeSpace;
			strCalc = String(Math.round(parseInt(strFreeSpace) / (1024 * 1024)));
			if(strCalc.length > 3) {
				tam = strCalc.length;
				aux = ""
				for(i=strCalc.length;i>3;i=i-3) {
					aux = "." + strCalc.substr(tam - 3,3) + aux;
					tam -= 3
				}
				aux = strCalc.substr(0,tam) + aux;
				strCalc = aux;
			}
			strSpaces = ""
			if(strVolumeName.length > 20) {
				strVolumeName = "[" + strVolumeName.substr(1,20) + "]";
			}
			else {
				if(strVolumeName.length!=0) {
					strVolumeName = "[" + strVolumeName + "]" + replicate(" ", 20 - strVolumeName.length);
				}
			}
			strOptionText =  strDriveName + strVolumeName;
			addSelect(selectName, strOptionText, strDriveName);
		} 
	}

	// Destroi and remove a referência do objeto enumerator objEnum
	delete objEnum;
	objEnum = null;
	
	// Remove a referência do objeto Drive DriveCollection
	DriveCollection = null;
	
	// Destroi and remove a referência do objeto FileSystem FSO
	delete FSO;
	FSO = null;
}


function addSelect(selectName, text, value) {
	var xSelect = document.getElementById(selectName);
	var xOption = document.createElement("option");
	xOption.text = text;
	xOption.value = value;
	try {
		xSelect.add(xOption,null); // standards compliant
	}
	catch(ex) {
		xSelect.add(xOption); // IE only
	}
}

function cleanSelect(selectName) {
	var xSelect = document.getElementById(selectName);
	while(xSelect.length!=0) {
		xSelect.remove(0);
	}
}

function replicate(text, numTimes) {
	result = ""
	for(i=0; i<numTimes; i++) {
		result += text
	}
	return(result);
}

function bidimArray(iRows,iCols) {
	var i;
	var j;
	var a = new Array(iRows);
	
	for (i=0; i < iRows; i++) {
	   a[i] = new Array(iCols);
	   for (j=0; j < iCols; j++) {
		   a[i][j] = "";
	   }
	}
	
	return(a);
} 

// PHP-compatible urlencode() for Javascript
function urlencode(s) {
	s = encodeURIComponent(s);
	return s.replace(/~/g,'%7E').replace(/%20/g,'+');
}

function formatar(src, mask){
  var i = src.value.length;
  var saida = mask.substring(0,1);
  var texto = mask.substring(i);
  var digitado = src.value.substring(i-1,i);
  digitado = eliminarCaracteresInvalido(digitado, saida);
  if (digitado == '') {
     src.value = src.value.substring(0,i-1);return;
  }
if (texto.substring(0,1) != saida){
    src.value += texto.substring(0,1);
  }
}

function eliminarCaracteresInvalido(valor, tipo) {
  var i, ret, caracteres;
  if (tipo == "9")
    caracteres = "0123456789";
  else if (tipo == "A" || tipo == "a" )
    caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ";
  else if (tipo == "L" || tipo == "l" )
    caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
  else if (tipo == "N" || tipo == "n" )
    caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ";
  else if (tipo == "T" || tipo == "t" )
    caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 çáàêãäéêeëiíïoóôõöuúûüÇÁÀÊÃÄÉÊEËIÍÏOÓÔÕÖUÚÛÜ(){}[]-_,.;:!@#$%¨&ºª<>?*+\/";
  ret = "";
  for (i = 0; i < valor.length; i++)
    if (tipo == 'x' || tipo == 'X')
      ret += valor.substr(i, 1);
    else
      if (caracteres.indexOf(valor.substr(i, 1), 0) != -1)
        ret += valor.substr(i, 1);
  return ret;
}