Jump to content

Recommended Posts

Posted

Hi Guys!

I've been trying to remove my music and I've succeeded, although only partially. My Pictures is gone from the picture, but My Videos & My Music still reappears from time to time when I use WMP. I've used:

"regsvr32 /u mydocs.dll"

and also:

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSMMyMusic"=dword:00000001

Does anyone know how to fix this permanetly?

Thanks in advance!

Marthax


Posted

Open Windows Media Player 10

Navigate to tools/options/rip music tab

in "rip music to this location" click the "change" button. choose location (say my documents folder) other than "my music" and hit the "apply" button. you should be able to delete the "my music" folder now. Worked for me. Hope it is permanent.

Pawan :thumbup

Posted

Here is a vbs script that changes the location of the music folder

It uses a brows for dialog to select the folder where you would

like it to be.

Const HKEY_CURRENT_USER = &H80000001

Const MY_COMPUTER = &H11&

Const WINDOW_HANDLE = 0

Const OPTIONS = 0

strComputer = "."

  Function Folder

  Dim objShell, objFolder, objFolderItem, objPath, strPath

  Set objShell = CreateObject("Shell.Application")

  Set objFolder = objShell.Namespace(MY_COMPUTER)

  Set objFolderItem = objFolder.Self

    strPath = objFolderItem.Path

  Set objShell = CreateObject("Shell.Application")

  Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath)

  If objFolder Is Nothing Then

  Exit Function

  End If

  Set objFolderItem = objFolder.Self

    ObjPath = objFolderItem.Path

  Set objRegistry=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\Microsoft\MediaPlayer\Preferences"

    strValueName = "CDRecordPath"

    strValue = ObjPath

    objRegistry.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue

  End Function

Folder

Posted

What if I want this folder to be chosen unattended? I want it to be %userprofile%\My Documents\Music, for example. How do I change that in your vbs?

Posted

All you are in effect doing then Marthax, is renaming My Music to Music.

Is it possible to rename 'special folders', yes!

REG ADD "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v CommonMusic /d "%ALLUSERSPROFILE%\Documents\Music" /f

REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v "My Music" /t REG_EXPAND_SZ /d "<drive:>\<path>\%%USERNAME%%\My Documents\Music" /f

REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "My Music" /d "<drive:>\<path>\%USERNAME%\My Documents\Music" /f

Just changing the path on the lower two examples would certainly be a good start.

Posted (edited)

thx, Yzöwl :D

EDIT: What if I wanna disable My Music completely? Can I use "" on these to lines to disable it?

Edited by Marthax
Posted

You can try, however the word 'special' and 'folder' tell me it probably will not work. The only way I have sucessfully seen My Music removed is unreg the mydocs.dll, make the change as per pawan's reply and to be safe create a hidden (system) file named My Music, (no extension), in My Documents folder

Posted

I am also using the regtweaks, I have set Shell Folders and User Shell folders to D:\Music. So not a MY music folder anymore, but just one folder (the same for every user).

In the Startmenu, it appears as: Music

(instead of My Music) and it refers to D:\Music :D

Did the same for Movies, but unfortunately that one doesn't appear in the startmenu!

Posted

but I don't want it to appear in the start-menu either. How do I remove that?

And how do I create a folder unattended with the hidden attribute?

[Off-Topic] Also, is it just me or do the search function @ msfn.org no longer support commands similar to "+"? I used to use + all the time, but now, when I use it, I get no search results.

Posted
but I don't want it to appear in the start-menu either. How do I remove that?

And how do I create a folder unattended with the hidden attribute?

[Off-Topic] Also, is it just me or do the search function @ msfn.org no longer support commands similar to "+"? I used to use + all the time, but now, when I use it, I get no search results.

Here a vbs script that makes a folder on C:\Test3

On the first running of the script it makes the folder hidden

On the second running of the script it makes it unhidden

Green text is the folder that get made and it attributes changed to hidden or not hidden

Blue text is the folder as a new object

Red Text is the varible for hidden it check to see if it on or off threw both

If and If not statements.

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set FileList = objWMIService.ExecQuery("SELECT * FROM Win32_Directory")

Set Fso = CreateObject("Scripting.FileSystemObject")

If Not Fso.FolderExists("C:\Test3") Then Fso.CreateFolder("C:\Test3") End If

Set objFile = Fso.GetFolder("C:\Test3")

If objFile.Attributes AND 2 Then '''' Turn Off The Hidden attribute

objFile.Attributes = objFile.Attributes XOR 2

Else

If Not objFile.Attributes AND 2 Then '''' Turn On The Hidden Attribute

objFile.Attributes = objFile.Attributes XOR 2

End If

End If

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...