Can someone please help me with if exist command

[Sull]

I would like to change My Documents to D:\ but only if D:\ exists, I don't know what command would do this. I found this in another thread which changes My Documents to D:\

;Change location of my documents
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
"Personal"   ="D:\\"

I would like for it to look if D:\ exists and if it does then apply the reg entry..

Thank you

Sull

[Yzöwl]

A quick reminder to anyone replying...

Make sure that D: is not an optical or removable drive.

[cyberpyr8]

You can script it through a batch file. It would be something like:

if exist d:\ goto script

goto end

:script

regedit /S filename.reg

:end

exit

Is that what you are looking for?

[Sull]

Yes that is what I am looking for, now will that work or does it need to be more advanced than that ?

also as Yzöwl said make sure D:\ is not CD/DVD or removable

[gunsmokingman]

Here is a VBS script that checks

1:\ It a hard drive

2:\ Checks For D Drive

3:\ Checks To Make Sure The Reg File Exists

You will have to supply the path to the reg file

Save As CheckDrv.vbs

 Dim Act :Set Act = CreateObject("Wscript.Shell")
 Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
 Dim Drv, Reg
 Reg = "Your\Path\To\Reg.reg"
   For Each Drv In Fso.Drives 
	If Drv.DriveType = 2 Then '-> Make Sure It A Hard Drive
	 If InStr(Drv.DriveLetter,"D") Then '-> Checks The Drive Letter
	  If Fso.FileExists(Reg) Then '-> Make Sure The Reg File Exists
	  Act.Run("regedit /S " & Reg),0,True
	  End If 
	 End If 
	End If 
   Next

[Sull]

Thank you, would the location below be ok ?

 Dim Act :Set Act = CreateObject("Wscript.Shell")
Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Drv, Reg
Reg = "%SYSTEMDRIVE%\Install\DS.reg"
   For Each Drv In Fso.Drives
	If Drv.DriveType = 2 Then '-> Make Sure It A Hard Drive
	 If InStr(Drv.DriveLetter,"D") Then '-> Checks The Drive Letter
	  If Fso.FileExists(Reg) Then '-> Make Sure The Reg File Exists
	  Act.Run("regedit /S " & Reg),0,True
	  End If
	 End If
	End If
   Next

Now can I just run this script from my cleanup.cmd ?

[gunsmokingman]

Thank you, would the location below be ok ?

No Change It To This

 Dim Act :Set Act = CreateObject("Wscript.Shell")
Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Drv, Reg
Reg = Act.ExpandEnvironmentStrings("%SYSTEMDRIVE%\Install\DS.reg")
   For Each Drv In Fso.Drives
	If Drv.DriveType = 2 Then '-> Make Sure It A Hard Drive
	 If InStr(Drv.DriveLetter,"D") Then '-> Checks The Drive Letter
	  If Fso.FileExists(Reg) Then '-> Make Sure The Reg File Exists
	  Act.Run("regedit /S " & Reg),0,True
	  End If
	 End If
	End If
   Next

Now can I just run this script from my cleanup.cmd ?

Yes you can

[Sull]

gunsmokingman,

Thanks I will test it out soon. I would like to learn how to write these vbs scripts, do you know of any good sites or guides ?

Appreciate the help

Sull

[gunsmokingman]

This The Hey, Scripting Guy! Archive is a very good place to learn about VBS Scripts.

[MHz]

gunsmokingman is the VBS scripting guy around these parts (except for the other scripting guy in the link given, ), but if your into VBS then the script56.chm is quite valuable also (at least for me).

[gunsmokingman]

Thanks for the nice words

I forgot to even mention the Jscript56.chm as a source.

You can also update the script engine to 5.7

Results for - Windows Script 5.7