Web Hosting by Netfirms | Free Domain Names by Netfirms

WebSite and Software Development

Home News Buiz Weather Games Developers Comix

Software & More

VBS QuickDev IDE

contact us

Xpounded JS Object for Shell work

This JavaScript Object is a nice wrapper for several shell calls, and more.
The main purpose of this snippit is to show that the VBS shellmore Class can be recoded using JavaScript.
This same code can be found on this site in VBS, JavaScript, and as a WSC.

Use: var shl = new shellplus()

Save this file as shellplus.js Use it freely

function shellplus(){
	//simple class to work with Windows shell items
	//requires windows and wscript
	//Class_Initialize
	var WshShell = new ActiveXObject("WScript.Shell")
	this.desktop = WshShell.SpecialFolders("Desktop")
	WshShell = null
	this.fso = new ActiveXObject("Scripting.FileSystemObject")
}
system.prototype.readFile = function(path){
	//returns the content of a file as a string
	var f = this.fso.OpenTextFile(path, 1)
	return f.ReadAll()
	f.Close
	f = null
}
system.prototype.saveFile = function(path,sContent){
	//saves the content of a string as a file - overwrites existing file
	var f = this.fso.createTextFile(path,True) //overwrite
	f.Write(sContent)
	f.Close
	f = null
}
system.prototype.folderDialog = function(sCaption,sInitPath){
	//opens a browse for folder dialog
	//returns path to selected folder
	var result = ""
	var oShell = new ActiveXObject("Shell.Application")
	var oFolder = oShell.BrowseForFolder(0, sCaption, 0 ,sInitPath)
	try{
		var oFolderItem = oFolder.Items().item()
		result = oFolderItem.Path
	}
	catch(e){
		alert(e.description)
	}
	oFolderItem = null
	oFolder = null
	oShell = null
	return result
}
system.prototype.openDialog = function(sPath,sFilter){
	//opens an Open File Dialog
	//returns path to chosen file
	var sReturn = ""
	var oCDlg = new ActiveXObject("MsComDlg.CommonDialog");
	with(oCDlg){
		MaxFileSize=260;
		InitDir = sPath;
  		DialogTitle="Open File";
		if(sFilter != ""){Filter = sFilter}
		else{Filter = "All Files (*.*)|*.*"}
		ShowOpen();
		sFile = FileName;
	}
	if(sFile != ""){sReturn = sFile}
	oCDlg = null
	return sReturn
}
system.prototype.saveDialog = function(sPath,sFilter){
	//opend a Save File Dialog
	//returns path to desired location
	var sReturn = ""
	var oCDlg = new ActiveXObject("MSComDlg.CommonDialog")
	with(oCDlg){
		MaxFileSize = 260;
		InitDir = sPath;
  		DialogTitle="Save File";
		DefaultExt = "txt";
		if(sFilter != ""){Filter = sFilter}
		else{Filter = "All Files (*.*)|*.*"}
		FileName = "defaultfile.txt";
		ShowSave();
		sFile = FileName;
	}
	if(sFile != ""){sReturn = sFile}
	oCDlg = null
	return sReturn
}
system.prototype.popup = function(msg,iTime,sTitle,msgType){
	//creates popup messagebox
	var OK = 0
	var OK_CANCEL = 1
	var ABORT_RETRY_IGNORE = 2
	var YES_NO_CANCEL = 3
	var YES_NO = 4
	var RETRY_CANCEL = 5
	var CANCEL_TRYAGAIN_CONTINUE = 6
 	var BUTTON_OK = 1
 	var BUTTON_CANCEL = 2
 	var BUTTON_ABORT = 3
 	var BUTTON_RETRY = 4
 	var BUTTON_IGNORE = 5
 	var BUTTON_YES = 6
 	var BUTTON_NO = 7
 	var BUTTON_TRY_AGAIN = 10
 	var BUTTON_CONTINUE = 11
	var wShell = new ActiveXObject("WScript.Shell")
	if(msgType=="")
		msgType = 0
	if(sTitle == "")
		sTitle = "Message"
	if(iTime == "")
		iTime = 3
	if(msg == "")
		msg = "Please Wait"
	var result = wShell.popup(msg,iTime,sTitle,msgType)
	wShell = null
	return result
}
system.prototype.fileExists = function(sFilePath){
	//checks for file existence
	var bReturn = this.fso.FileExists(sFilePath)
	return bReturn
}
system.prototype.folderExists = function(sFolderPath){
	//checks for folder existence
	var bReturn =  this.fso.FolderExists(sFolderPath)
	return bReturn
}

No HTML to View

- Copyright 2003 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Privacy Statement
Feedback