Does this program exist?

[zakoon]

Anyone got any ideas for other useful vbcripts?

my compliments for great scripts and Ideas.

What abot a script for "ALL PROGRAMS" menu like the one found in Start Menu??

I have a problem with Fast Explorer tho . .

Desktop / Folder background does not appear in the file type list . .

How do I overcome this problem ?

[sandman45654]

Great work Cydine. I've been looking for something like this for a while now.

Here is an easy way to restore your FastExplorer settings. This is good for adding FolderViewXp.vbs to multiple computers or after reinstialling Windows. You will have to use FE one time to setup your menu but after that you can restore your settings with one click and without using/installing FE.

Step 1. Follow Cydine's insturctions on setting up FE.

Step 2. Make a folder on your desktop (the name isn't important). Copy the following files into that folder.

FE2001.ini (x:\windows\FE2001.ini)

FEShlExt.dll (in the folder you extracted FastExplorer to)

FolderViewXP.vbs (I have no idea where you put this :woot: )

Step 3. Open notepad and paste in the following text. When done save it in the folder you created as fe.reg

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\CLSID\{693BE9C0-BEC3-11D2-B4C1-C33BBD3AD64B}]

@="Fast Explorer Shell Extension"

[HKEY_CLASSES_ROOT\CLSID\{693BE9C0-BEC3-11D2-B4C1-C33BBD3AD64B}\InprocServer32]

@="%systemroot%\\system32\\FEShlExt.DLL"

"ThreadingModel"="Apartment"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{693BE9C0-BEC3-11D2-B4C1-C33BBD3AD64B}\InprocServer32]

@="%systemroot%\\system32\\FEShlExt.DLL"

"ThreadingModel"="Apartment"

Step 4. Open notepad again and paste in the following text. When done save it in the folder you created as Setup.bat

@echo off

cd %cd%

reg import fe.reg

move FE2001.ini %windir%

move FolderViewXP.vbs %systemroot%\system32

move FEShlExt.dll %systemroot%\system32

regsvr32 FEShlExt.dll /s

Step 5. Zip all the files in the folder you created and your done. When you need to restore your settings just extract the zip file and run setup.bat.

This was written for FolderViewXP.vbs but should work (with a little modding) with any of the vbs files posted so far.

[cydine]

Nice one sandman45654.

This was on my to do list for my unattended cd. You've just saved me the trouble.

Cheers.

[sandman45654]

I wasn't sure if anyone would be able to use that or not so I'm glad you can :) .

Miran it's pretty easy to make this vb script show/hide file extensions.

1. Change all instances of the word "Hidden" with "HideFileExt"

2. Change 2, "REG_DWORD" to 0, "REG_DWORD"

3. Change Do not show hidden files and folders & Show hidden files and folders appropriately

[sandman45654]

*smacks forehead* Oops I just noticed Cydine already covered the file extensions vbs lol

[erf]

I edited the code so you dont have to enter a foldername everytime it just creates a folder called new folder (1,2,3,4,5,6 & etc)

'NewFolder.vbs

Option Explicit
  Dim fso, ws, objArgs, Title
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set ws = CreateObject("Wscript.Shell")
  Set objArgs = WScript.Arguments
  Dim id


Call Folder
Call Cleanup

Sub Folder
  Dim strArg, FolderPath, FolderTemp

  For Each strArg in objArgs
    FolderTemp = FolderTemp & " " & strArg
  Next

  FolderPath = Trim(FolderTemp)
  
  On Error Resume Next

  fso.CreateFolder FolderPath & "New Folder"

  if Err.Number = 58 Then
    Err.Clear:On Error GoTo 0  
    Call FolderID

  ElseIf Err.Number = 52 Then
    Err.Clear:On Error GoTo 0
    ws.Popup Chr(34) & "ERF" & Chr(34) & " contains invalid character(s).", ,Title, 0 + 48 + 4096

  End if  
End Sub

Sub FolderID
  Dim strArg, FolderPath, FolderTemp

  if (id = vbNullString) then
    id = 1
  End if

  For Each strArg in objArgs
    FolderTemp = FolderTemp & " " & strArg
  Next

  FolderPath = Trim(FolderTemp)
  
  On Error Resume Next

  fso.CreateFolder FolderPath & "New Folder (" & id & ")"

  if Err.Number = 58 Then
    Err.Clear:On Error GoTo 0 
    id = id +1 
    Call FolderID

  ElseIf Err.Number = 52 Then
    Err.Clear:On Error GoTo 0
    ws.Popup Chr(34) & "ERF" & Chr(34) & " contains invalid character(s).", ,Title, 0 + 48 + 4096

  End if  
End Sub


Sub Cleanup
	Set ws = Nothing
	Set fso = Nothing
	WScript.Quit
End Sub

[The Prodigal Father]

the superfolderview one didnt work for me, it says theres an error on line 8 character 1

i really have no idea, i'll leave it to you guys, if you can fix it great, if not, no worries.

EDIT: nevermind i fixed it, stupid me pasted it twice into notepad....lol

[cydine]

Here's one for a command prompt.

'CmdPrompt.vbs

Dim fso, ws, objArgs
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
Set objArgs = WScript.Arguments

Call CmdPrompt

Call Cleanup

Sub CmdPrompt
Dim strArg, FolderTemp, FolderPath
For Each strArg in objArgs
FolderTemp = FolderTemp & " " & strArg
Next
FolderPath = Trim(FolderTemp)
ws.run "cmd.exe /k cd /d " & FolderPath
End Sub

Sub Cleanup
Set ws = Nothing
Set fso = Nothing
WScript.Quit
End Sub  

[hackerssidekick]

Just discovered this topic today :woot: it's awesome guys, well done! Wicked scripts cydine :D

Thought of a script idea that will be useful, how about one that copies the selected file's full path to the clipboard. And if clicked on a folder background, then the folder's path?

What do ya think cydine? :whistle:

[EL]

wow thanks for this, even if im a little late :laugh:

[tangozero6]

wow thanks for this, even if im a little late :laugh:

585246626[/snapback]

and thanks to you for bumping this as i was looking for this few weeks ago but could not find it!

also thanks to original poster and cydine for his help - this is an essential trick/tweak in my book

[fmxer]

any chance of someone making this into one small .reg file or something similar so you just have to open it then it adds the "Show hidden files/Hide Hidden Files" to the context menu? for us lazy/not-so-techie folk who dont want to download flash explorer and all that stuff :p

(btw its 5:29am and i just skimmed through this thread so forgive me if i missed a post which has what im asking for :) )

[BroChaos Veteran]

i thought you have to have flash explorer installed.

the show/hide hidden folders is the best extension ever made...i couldn't live without it.

[Hekx]

Anyone know what to add to this to make the window automatically refresh?

(Same as pressing F5)

On Error Resume Next
Set WSHShell=Wscript.CreateObject("Wscript.Shell") 

X = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")

If X = "1" Then 
    WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
Elseif X = "2" Then
    WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
End If

Set WshShell = Nothing

[Orange Battery]

Ive used these for ages but always had to use a right click and refresh to get hidden icons showing up or hiding, is there no way to add something to the script to refresh the desktop automatically?

[Mersine]

Amazing. Thank you.

[Uni_Verse]

Thanks Very Much and Thx for Bumping this Theread

[Minimoose]

Thanks for this cydine (Y)