How to Get ScriptFullName, Path, etc.

[MarquisEXB]

Is there a way to get ScriptFullName, FullName, and Path from a vbs? I'd like to get this dynamically, and usually the method is WScript.FullName, etc.

Thanks!

[Teknojnky]

http://www.mediamonkey.com/wiki/index.p ... ScriptPath

[MarquisEXB]

Thanks, but what about ScriptFullName and FullName?

[Teknojnky]

there is no such thing, at least anything officially designated as such by MM as it doesn't utilize them.

I suppose you could try reading the scripts.ini file, but this only lists scripts which are not automatically loaded at startup.

for what purpose are you trying to do?

edit:
there is also extentions.ini @ C:\Documents and Settings\All Users\Application Data\MediaMonkey but this is only used by MMIP installers, it would not include any scripts which are manually created or have their own installers.

[MarquisEXB]

Well I have a few versions of the same script that will load a playlist. Right now I have to hard code the playlist into the file, but if I can get the script name, then I can use it to parse the playlist name. This way I can just copy/rename the vbs to match those of the playlists.

Also I'd like to use this for simple logging. I can create a function that logs based on the file name of the vbs, without hardcoding the filename (IE use the same function over & over).

I guess the question is more academic than anything, since I can get around all of these issues.

[Peke]

I'm not sure why you need to read names of scripts from other developers?

Not sure what you want to do, to use same script over and over on different playlists without hardcoding them into script?

[MarquisEXB]

I don't need to read the script name of other developers. I'm trying to find a way to get my scripts to self realize their own names programatically. Frequently in vbs I use the script's name as the log file name, ini name, etc. In other words.

LogFileName = Replace(Wscript.ScriptFullName,".vbs", ".log")
IniFileName = Replace(Wscript.ScriptFullName,".vbs", ".ini")

Is there a way to do this in MM/vbs?

[Teknojnky]

sure just define them as constants at the start of the script or use the scriptfilename in the log.

Code: Select all

Option Explicit

' MediaMonkey Script
  Dim ScriptName : ScriptName = "MyScript"
  Dim Version : Version = "2010.01.14.0900"

or just do like this

Code: Select all

Sub logme(msg)
	'by psyXonova'
	If SDB.IniFile.BoolValue(Prefs,"Logging") Then
		Dim fso, logf
  On Error Resume Next
		Set fso = CreateObject("Scripting.FileSystemObject")
		Set logf = fso.OpenTextFile(Script.ScriptPath&".log",ForAppending,True)
		logf.WriteLine Now() & ": " & msg
		Set fso = Nothing
		Set logf = Nothing
	End If
End Sub

[trixmoto]

Maybe I'm misunderstanding you, but "Script.ScriptPath" seems to be exactly what you are asking for. If not, can you explain why not, maybe with some examples?

[MarquisEXB]

Ahhh yes just tried that - it is EXACTLY what I need. I thought that would just return the folder, not the entire path, so my mistake.

Thanks!