StrFile = "C:\Test.txt" Set ObjWMI = CreateObject("Scripting.FileSysTemObject" Set ObjFiles = ObjWMI .GetFile("C:\Test.txt") If ObjFiles.Attributes And 1 Then ObjFiles.Attributes = ObjFiles.Attributes Xor 1 End If Set ObjWMI = Nothing Set ObjFiles = Nothing
/elogo_user/8994.jpg" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www./elogo_user/8994.jpg');}" onmousewheel="return imgzoom(this);" alt="" />