DX Scripter Needed
Putting a saddle on the file system
Wednesday, March 16, 2005 by Shotgun989 | Discussion: DesktopX
Hi there. I am anything but new to DesktopX, but I have never scripted with it, and have little knowledge about VB Script. I wanted to build a theme that would display the sizes of various folders on my hard disk. I tried to do so, but got some flagrant error. Below is the code.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim FSO
Dim res
Dim varFldr, varFldrSize
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim varFolder
Set varFolder = FSO.GetFolder(varFldr) <======Error happens here
varFldrSize = Round(varFolder.size/1048576, 2)
Archive Size Info.text=varFldrSize
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Any help? I would really appreciate anything that you guys have to offer.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim FSO
Dim res
Dim varFldr, varFldrSize
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim varFolder
Set varFolder = FSO.GetFolder(varFldr) <======Error happens here
varFldrSize = Round(varFolder.size/1048576, 2)
Archive Size Info.text=varFldrSize
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Any help? I would really appreciate anything that you guys have to offer.
Shotgun989
Reply #2 Wednesday, March 16, 2005 2:54 PM
Reply #2 Wednesday, March 16, 2005 2:54 PM
Well, ironically that worked like a charm. As long as I have someones attention, is there a way to periodically ping an ip to see if a server is up? Again, extreme noobage here.
ExodusCrow
Reply #3 Wednesday, March 16, 2005 3:43 PM
Reply #3 Wednesday, March 16, 2005 3:43 PM
Dim pingResult
Object.SetTimer 5555, 6000 'ping every 6 seconds
Sub Object_OnTimer5555
If System.InternetConnected = True Then
pingResult = System.Ping("www.wincustomize.com")
Object.Text = pingResult
Else
Object.Text = "No internet connection"
End Sub
Object.SetTimer 5555, 6000 'ping every 6 seconds
Sub Object_OnTimer5555
If System.InternetConnected = True Then
pingResult = System.Ping("www.wincustomize.com")
Object.Text = pingResult
Else
Object.Text = "No internet connection"
End Sub
reindeer057
Reply #4 Wednesday, March 16, 2005 4:25 PM
Reply #4 Wednesday, March 16, 2005 4:25 PM
I think there is a widget that does that which came with dx3.
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!
Reply #1 Wednesday, March 16, 2005 1:39 PM
In the meantime, try:
varFldr = "C:\windows\system32"
Set varFolder = fso.GetFolder(varFldr)