[advancedservers]

Hi

Jusat wondering if anyone can help me make a startmenu batch file that checks to see if a shortcut exist say "%AllUsersProfile%\Start Menu\Programs\nero" then
del "%AllUsersProfile%\Start Menu\Programs\nero" then run a self extractin sfx file.


i like to install my start menu like this

Applications - Ms office , ect, ect
Communictations
Entertainment
Accesibility
System tools
Utilities - For most of the programs i install say nero & acdsee
Games

anyway any ideas wil be appeciated

Thnx guys

[jbm]

You'll have to modify this to delete the right short cut and ruun your sfx.

IF EXIST "%AllUsersProfile%\Start Menu\Programs\nero\nero startsmart.lnk" ( 
	del "%AllUsersProfile%\Start Menu\Programs\nero\nero startsmart.lnk"
	start /wait myselfextracting.exe
)
exit

[advancedservers]

THANKS HEAPS

[gunsmokingman]

Here A Vbs Script That Will Remove Files, Shortcuts In These Places.

Blue Text Is The Loctions It Checks In
Green Text Is Where You Would Put The Files Or Shortcuts In To Delete The Files That Are Listed In There Is What I Used To Test This Script.

Quote

Dim Act : Set Act = CreateObject("Wscript.shell")
Dim AUP : AUP = Act.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\Start Menu")
Dim AUPP : AUPP = Act.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\Start Menu\Programs")
Dim UP : UP = Act.ExpandEnvironmentStrings("%UserProfile%\Start Menu")
Dim UPP : UPP = Act.ExpandEnvironmentStrings("%UserProfile%\Start Menu\Programs")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim DFile, DFile1, Garbage, StrDF, StrFD, StrFD1
  '''' PLACE FILE TO DELETE IN GARBAGE, THESE ARE ONLY THE TEST FILES LISTED IN THE ARRAY

Garbage = Array("New Text Document.txt","Eddie.txt","Test.txt","Some Other Folder\Test.txt",_
"Some Other Folder\New Text Document.txt","Some Other Folder\Eddie.txt")

    Function FDel1
  Fso.DeleteFile(DFile)
End Function
    Function FDel2
  Fso.DeleteFile(DFile1)
End Function
    Function MFile1
End Function
    Function Mfile2
End Function
    Function RMF1
  For Each strDF in Garbage
  StrFD = (AUP & "\" & StrDF)
  StrFD1 = (AUPP & "\" & StrDF)
  DFile = (AUP & "\" & StrDF)
  DFile1 = (AUPP & "\" & StrDF)
  If Fso.FileExists(AUP & "\" & strDF) Then FDel1() Else MFile1() End If
  If Fso.FileExists(AUPP & "\" & strDF) Then FDel2() Else MFile2() End If
  Next
End Function
    Function RMF2
  For Each strDF in Garbage
  StrFD = (UP & "\" & StrDF)
  StrFD1 = (UPP & "\" & StrDF)
  DFile = (UP & "\" & StrDF)
  DFile1 = (UPP & "\" & StrDF)
  If Fso.FileExists(UP & "\" & strDF) Then FDel1() Else MFile1() End If
  If Fso.FileExists(UPP & "\" & strDF) Then FDel2() Else MFile2() End If
  Next
End Function
  RMF1 '''' Start The Check In %ALLUSERSPROFILE%\Start Menu And %ALLUSERSPROFILE%\Start Menu\Programs
  RMF2 '''' Start The Check In %UserProfile%\Start Menu\Programs And %UserProfile%\Start Menu\Programs

Here A Script To Test The Above Script.

Quote

Dim Garbage, Loc, strL, StrN, WF
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Act : Set Act = CreateObject("Wscript.shell")
Dim AUP : AUP = Act.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\Start Menu")
Dim AUPP : AUPP = Act.ExpandEnvironmentStrings("%ALLUSERSPROFILE%\Start Menu\Programs")
Dim UP : UP = Act.ExpandEnvironmentStrings("%UserProfile%\Start Menu")
Dim UPP : UPP = Act.ExpandEnvironmentStrings("%UserProfile%\Start Menu\Programs")
Garbage = Array("\New Text Document.txt","\Eddie.txt","\Test.txt")
Loc = Array((AUP),(AUPP),(AUPP & "\Some Other Folder"),(UP),(UPP),(UPP & "Some Other Folder"))
If Not Fso.FolderExists(AUPP) Then Fso.CreateFolder(AUPP) Else On Error Resume Next End If
If Not Fso.FolderExists(UPP) Then Fso.CreateFolder(UPP) Else On Error Resume Next End If

For Each strL in Loc
For Each StrN In Garbage
Set WF = fso.OpenTextFile( strL & StrN,2, true)     
WF.WriteLine "Hello It My Test"
WF.Close
Next
Next
Act.Popup "Completed", 3 ,"End", 0 + 32

[advancedservers]

could you please explain do i use the top code or the bottom code

[gunsmokingman]

The Top One Is The Script
The Bottom Script Is To test The top Script.
You would only need the top script.

[advancedservers]

sorry i should od read what you typed

Thanks again