Login with username and password (forgot your password?)

I've stuck with Dell my last two computers, always the business model plus upgrades and have never had to deal with the level of crap that I constantly hear about.

Also their customer service and responsiveness have always been great for me, maybe that's also a nice perk of the business models?

Be careful with Orbit because last time I used it there was adware bundled in.

Another windows one is Magic Formation by TokyoDownstairs. It takes a bit to get use to but, I like it.

I've heard of it only for an alternative medical treatment for, if memory serves me correctly(don't trust my memory as I don't ), I believe kidney stones.

Open the desktop.ini file and delete the background image or just delete the desktop.ini file.

Don't think you would need a batch for every individual PC just a loop that iterates through various desktop path options until it finds the correct one.

A monitoring type app might be some what over kill for something as simple as this? Guess it would depend on how frequently you are polling the drives, etc.

Is this what you mean DiskMounter
Or DeskDrive via FreewareGenius.

Have tried the first one but, not the second.

The closest I can get you is "Up One Level" which is a shell extension by SpiritPyre over at MSFN
Here's the thread http://www.msfn.org/board...ll-extensions-t52524.html

Guess it's redundant for me since I use QTTabBar and just double click on the folder background in Explorer to take me to the parent.

Hi Alex,

Thanks for a great program. Have been using it for awhile. One of the nice features I enjoy is not having to go into the registry and add/remove keys for custom scripts.

FYI I wrote an Instructable on How to Run a Script from the Context Menu. http://www.instructables....rom-the-Context-Menu-in-/

This can't be done if by the term "global" you mean within all applications for many obvious reasons. The only solutions have been posted.

If you're referring to "global" in terms of Windows Explorer than the link to the "Simplest way to add a command to Explorer's Shell menu" post is the way to start.

Personally I would do this in vbscript to get/format the date then use the autoit com object for accessing the clipboard. Then I'd add into the Explorer context menu using Fast Explorer.

Simple Solution. Comment out the msgbox

One thing to remember is there are limits to how many files that can be passed using WScript Arguments.
I think it's 25?

Then if you've got hundreds of files you want to select and run this script on, I think there may be other issues.

Here you go. You'll have to modify the date function still.

[copy or print]
'*********************************************************
' Sorter.vbs
'
' 3:30 PM 11/04/2008
'
' A. Timperley aka SirSmiley
'
' Purpose:
' Sort Files Into Date Specific Folders. Creates folders if none exist.
' Non-Recursive. Eg. Doesn't do subfolders
' Inputs:
' Dropped Folders
' Returns:
' Msgbox notification on completion
'*********************************************************

Dim objArgs : Set objArgs = WScript.Arguments
' Declore array's
Dim arrDropItems() ' all dropped items

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
' Set the path to your target folder here
Dim objTargetFldr ': objTargetFldr = "C:\Programming\Sandbox\x"
' Special character
' Use double quotes with no space if you wish to have a straight date
Dim sSC : sSC = "."
' Configure Sorting Method
' 1 = Date Created | 2 = Date Last Accessed | 3 = Date Last Modified
Dim iSortDate : iSortDate = 3

'Splits dropped folders into an array
' You can drop multiple folders this way
For I = 0 to objArgs.Count - 1
If I <0 Then
WScript.Quit
  Else
' Build Array from Dropped Items
ReDim Preserve arrDropItems(I)
arrDropItems(I)=objArgs(I)
  End If 
Next

Call ArraySort
' Sort Array
Function ArraySort
For i=0 To UBound(arrDropItems)
' Determines if dropped item is a folder or file
  If objFSO.FolderExists(objArgs(i)) Then
Call SortFolders(objArgs(I))
ElseIf objFSO.FileExists(objArgs(i)) Then
Call SortFiles(objArgs(I))
End If 
Next
End Function
' Checks to see if Target Date Folder Exists
' Creates one if none exists
Function DateFolder(strDate)
' Format Date
strSortDate = DatePart("yyyy",strDate)&sSC
If DatePart("m",strDate) < 10 Then
strSortDate = strSortDate & "0"
End If
strSortDate = strSortDate & DatePart("m",strDate)&sSC
If DatePart("d",strDate) < 10 Then
strSortDate = strSortDate & "0"
End If
strSortDate = strSortDate & DatePart("d",strDate)
strTargetFldr = objTargetFldr&"\"&strSortDate
If objFSO.FolderExists(strTargetFldr) Then
DateFolder=strTargetFldr&"\"
Else'If objFSO.FolderExists(strTargetFldr)=False Then
objFSO.CreateFolder(strTargetFldr)
DateFolder=strTargetFldr&"\"
End IF
End Function

' Creates File Collection from Folders in Array. Sorts Accordingly
Sub SortFolders(strFolder)
Set objFolder = objFSO.GetFolder(strFolder)
objTargetFldr = objFolder'
' Get's File Collection
Set objFileCol=objFolder.Files
For Each File In objFileCol
If iSortDate = 1 Then
strTargetFldr = DateFolder(File.DateCreated)
objFSO.MoveFile File,strTargetFldr
ElseIf iSortDate = 2 Then
strTargetFldr= DateFolder(File.DateLastAccessed)
objFSO.MoveFile File,strTargetFldr
ElseIf iSortDate = 3 Then
strTargetFldr= DateFolder(File.DateLastModified)
objFSO.MoveFile File,strTargetFldr
End If
Next
msgbox "Folder Contents Sorting Complete"
End Sub

' Sort's Files to Date Formated Folders
Sub SortFiles(strFile)
Set strFile=objFSO.GetFile(strFile)
strFolder=objFSO.GetParentFolderName(strFile)
strFolder=objFSO.GetAbsolutePathName(strFolder)
Set objFolder = objFSO.GetFolder(strFolder)
objTargetFldr = objFolder
If iSortDate = 1 Then
strTargetFldr = DateFolder(strFile.DateCreated)
objFSO.MoveFile strFile,strTargetFldr
ElseIf iSortDate = 2 Then
strTargetFldr= DateFolder(strFile.DateLastAccessed)
objFSO.MoveFile strFile,strTargetFldr
ElseIf iSortDate = 3 Then
strTargetFldr= DateFolder(strFile.DateLastModified)
objFSO.MoveFile strFile,strTargetFldr
End If
msgbox "Files Sorting Complete"
End Sub

When you say sort files do you mean together with the folders as in you drop/send 5 folders and 20 files?
Also are the files all going to be from one folder? If that's the case then it's pretty simple but, if it's files for many folders through Explorer Search then it would slow down the script quite a bit since you'd have to get the parent folder for each file then create the sub folders.

To change the format to year and month do the following in the date folder function:

[copy or print]
' Comment or delete the special character function at the end of the next line
strSortDate = strSortDate & DatePart("m",strDate)'&sSC
' Comment out or delete the next if statement and string
' If DatePart("d",strDate) < 10 Then
' strSortDate = strSortDate & "0"
' End If
' strSortDate = strSortDate & DatePart("d",strDate)

Nice little app.

Does anyone know if there's a way to sync folders?
 Eg. Detail views in one and selecting a folder opens icon view in another

Ooo! That's actually fairly easy compared to what I've been working on.

Delete or comment out everything after declaring the Target folder variable:

[copy or print]
Dim objTargetFldr ': objTargetFldr = "C:\Programming\Sandbox\x"

In the FilesToFolder Sub Add One Line:

[copy or print]

' Find the line below
Set objFolder = objFSO.GetFolder(strFolder)
' Add the next line right after it
objTargetFldr = objFolder

I can add in some basic input boxes if you want or you can do it this way:

Edit it with Metapad or Notepad++ (or MS Notepad if you must .
Paste and save as a vbscript file. The parts you need to change are:

• objTargetFldr="Path you want to create the date folders in"
• Sorting Method- Set for Date Last Modified by default see the comment for changes
• Change sSC = "." to what ever character you want to divide the date by or "" for no character
• Rearrange the If Statements in the DateFolder Function to change how you want to display the folders

Then move the edited file to your SendTo Folder. When you right click on a folder(s) and select the file it will move the folders. You can also drag and drop the folders you want to sort directly on to the script



objTargetFolder="Path to folder

Here's a simple vbscript file with no recursion.

[copy or print]
'*********************************************************
' Sorter.vbs
'
' 3:30 PM 11/04/2008
'
' A. Timperley aka SirSmiley
'
' Purpose:
' Sort Files Into Date Specific Folders. Creates folders if none exist.
' Non-Recursive. Eg. Doesn't do subfolders
' Inputs:
' Dropped Folders
' Returns:
' Msgbox notification on completion
'*********************************************************
'Year|Month|Day
Dim objArgs : Set objArgs = WScript.Arguments
Dim arrDropFldrs()
Dim arrDropFiles()

Dim blnRecurse : blnRecurse=False

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
' Set the path to your target folder here
Dim objTargetFldr : objTargetFldr = "C:\Programming\Sandbox\x"
' Special character
' Use double quotes with no space if you wish to have a straight date
Dim sSC : sSC = "."
' Configure Sorting Method
' 1 = Date Created | 2 = Date Last Accessed | 3 = Date Last Modified
Dim iSortDate : iSortDate = 3

'Splits dropped folders into an array
' You can drop multiple folders this way
For I = 0 to objArgs.Count - 1
If I <0 Then
WScript.Quit
  Else
' Build Array from Dropped Items
ReDim Preserve arrDropFldrs(I)
arrDropFldrs(I)=objArgs(I)
  End If
  Call FilesToFolder
Next

' Checks to see if Target Date Folder Exists
' Creates one if none exists
Function DateFolder(strDate)
' Format Date
strSortDate = DatePart("yyyy",strDate)&sSC
If DatePart("m",strDate) < 10 Then
strSortDate = strSortDate & "0"
End If
strSortDate = strSortDate & DatePart("m",strDate)&sSC
If DatePart("d",strDate) < 10 Then
strSortDate = strSortDate & "0"
End If
strSortDate = strSortDate & DatePart("d",strDate)
strTargetFldr = objTargetFldr&"\"&strSortDate
If objFSO.FolderExists(strTargetFldr) Then
DateFolder=strTargetFldr&"\"
Else'If objFSO.FolderExists(strTargetFldr)=False Then
objFSO.CreateFolder(strTargetFldr)
DateFolder=strTargetFldr&"\"
End IF
End Function

' Creates File Collection from Folders in Array. Sorts Accordingly
Sub FilesToFolder
For i=0 To UBound(arrDropFldrs)
strFolder=arrDropFldrs(i)
' Get Folder
Set objFolder = objFSO.GetFolder(strFolder)
' Get's File Collection
Set objFileCol=objFolder.Files
For Each File In objFileCol
If iSortDate = 1 Then
strTargetFldr = DateFolder(File.DateCreated)
objFSO.MoveFile File,strTargetFldr
ElseIf iSortDate = 2 Then
strTargetFldr= DateFolder(File.DateLastAccessed)
objFSO.MoveFile File,strTargetFldr
ElseIf iSortDate = 3 Then
strTargetFldr= DateFolder(File.DateLastModified)
objFSO.MoveFile File,strTargetFldr
End If
Next
Next
msgbox "Complete"
End Sub

Next you'll want star date!

Are you meaning moving into just one folder or a directory tree?

Here's an extension that Lifehacker covered recently
http://lifehacker.com/378...r-utils-right+click-tools

Haven't tested this myself...yet.

I may already have a standard vbs drop script that you could put in the sendto folder.

Is the directory structure something like this:
Year|Month|Day
Eg. 2008|04|10

new beta supports thumbnails as well

Thanks for the update.

I keep trying Copernic, Google Desktop, and Windows Search amongst other but, always find myself using this fast little tool.

Actually, I saw your screen after posting was just too lazy to edit my post.

Then I went off to find SQLNotes (still having trouble downloading).

Your screen shot looks impressive and I like the graphing capabilities. Other ideas could include strategies for coping or avoiding similar situations. Very good ideas.

Adam Pash over at Lifehacker posted a link to a more specific medical type webapp/community.
http://lifehacker.com/371...of-the-crowd-for-patients

The webapp idea is good but, my issues always come back to protecting people's privacy.

[Still off topic]
Yeah, the information is only as good as what a person does or doesn't do with it. Unfortunately most people fear change.

Charting your moods is about covering both ups, downs and just normal days. A grateful journal is great if used pro-actively. Simply saying your grateful for something but, not knowing why can be ineffective.

Personally, when I charted I found it to lead me in a more positive direction. Additionally, I used a Thought Record to help with changes. Now years later the Thought Record process is actually pretty well standard in my normal daily outlook.

[back on topic]
These tools would actually make a great WebApp and looking at how big the self-Improvement market is potentially fairly lucrative.

Off to hatch my evil world domination plan. 

A grateful journal and a mood diary serve two different purposes.

Charting your moods allows you to understand yourself better and make changes in yourself, situation and surroundings. After all applying a band-aid won't heal a sore if you keep pulling it back and picking at it.

Actually I did a simple mood chart in Access years ago when they thought I might be bi-polar. Instead I'm my own special type of crazy. 

Have to agree with CWuestefeld. Probably best suited as Web App and using flash for the graphing IMO.

I think Phil was referring more to the version of .Net than directly at .Net itself...
or perhaps both?

Here's another VBScript based one that uses the capicom.dll.

I haven't given it a good working test in regards to security strength but, it is stable.
http://www.visualbasicscript.com/m_43386/tm.htm