15/06/23 10:34:11.61 XVPfanQC0.net
>>229 スマン勘違いしてた
>>230 ちょっと調べてみたけどわからんかった
とりあえずサンプルおいていくけどもっとシンプルにできないものか
var getDriveName = function(item){
var fs = new ActiveXObject("Scripting.FileSystemObject");
var sh = new ActiveXObject('WScript.Shell');
var p = fs.GetParentFolderName(item);
var n = fs.GetFileName(item);
var r = new RegExp('<(.*)>\\s+' + n + ' \\\[(.*)\\\]');
var e = sh.Exec('"' + sh.ExpandEnvironmentStrings('%ComSpec%') + '" /c dir "' + p + '" /a');
var s = e.StdOut.ReadAll();
var result = item;
if(fs.FolderExists(item) && s.match(r) && (s.match(r)[1] == 'SYMLINKD' || s.match(r)[1] == 'SYMLINK')){
result = s.match(r)[2];
}else if(fs.FileExists(target) && fs.GetExtensionName(item) == 'lnk'){
result = sh.CreateShortcut(item).TargetPath;
}
return fs.GetDriveName(result);
};
var target = WScript.Env('Focused');
WScript.Echo(getDriveName(target));