VBScript tips - Recursive file search write results to file

This is much like the previous example, except in this script instead of echoing out the file names, we are going to write the files (and their paths) to a results file.

strFolder = "C:\dell"

Set objFSO = CreateObject("Scripting.FileSystemObject")

GetFiles strFolder

Sub GetFiles(byval strDirectory)

Set objFolder = objFSO.GetFolder(strDirectory)
For Each objFile in objFolder.Files
'Here specify the output file location and name ex: "C:\Dell Files.txt"
WriteToFile "C:\Dell Files.txt",objFile.Path
Next
For Each objFolder in objFolder.SubFolders
GetFiles objFolder.Path
Next
End Sub

Sub WriteToFile(strFilePath, strValue)

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
(strFilePath, ForAppending, True)
objTextFile.WriteLine strValue

End Sub

VBScript tips - Recursive file search

'Create the FileSystemObject
Set objFSO = Createobject("Scripting.FileSystemObject")

'Specify the folder that will be the root
strFolder = "C:\dell" 'using dell directory is just example

'This script is designed to run from the command line and will write out all files
'Here we call the subroutine
GetFiles strFolder

'Here is the sub
Sub GetFiles(ByVal strDirectory)
Set objFolder = objFSO.GetFolder(strDirectory)
'This gets the files from the root directory
For Each objFile in objFolder.Files
Wscript.Echo objFile.Path
Next
'This is the recursion - it gets all subfolders and files within
For Each objFolder in objFolder.SubFolders
GetFiles objFolder.Path
Next
End Sub

FL Studio 9 Manual printable PDF version

I converted the help file that comes with FL Studio 9 into a PDF document. If you would like a copy download it here. It is a large file ~40MB. Right click the link and choose 'save target as' to directly save it. If you click the link to open it, be patient.

Some people reported this needing a password. It does not need a password. I think the problem may have been my download source. So I changed that. If you had a problem with it please try downloading it again.

Genre changing GUI tool

Download the tool here

It is a .zip file. Extract it somewhere. This is a newer version than what I had posted previously. Some features are added to this tool. The stuff on the TV Series tab does not work. The movies part does work. I stopped developing this tool but I am publishing the latest version I have developed.

My apologies for putting up a tool that is not really finished (the tv part). But I became frustrated with the tv part and quit working on it...

Symantec Endpoint Protection will not install because it says Pending system changes that require a reboot have been detected

Delete the key:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\PendingFileRenameOperations

You may also need to check for the key at these locations:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSetXXX\Control\SessionManager\PendingFileRenameOperations
Where XXX is a number. Again, delete the PendingFileRenameOperations.

Do not reboot, just try the install again.

New SID tool

Sysinternals has removed the download for newsid.exe. This tool is still valuable and we recently had to use it (and it did the job). I had a hard time finding it so I wanted to put it up in case someone else needs it.
New_SID.exe (zip)

Pairing a Motorola HS810 bluetooth headset with Motorola Droid

On the Droid, go to Settings>Wireless & networks>Make sure bluetooth is turned on (green checkmark)>tap Bluetooth Settings

Now, with you HS810 headset closed, hold in the call button until the blue light comes on. Hit the Scan for Devices on the Droid. Open the arm on the headset. The Droid should discover the headset and prompt you to add it. Once it is added, it is paired and should be usable.