Option Explicit Function Setting_getEditorPath() '// sakura editor : http://cgi.search.biglobe.ne.jp/cgi-bin/search7-n?q=sakura+editor ReDim pathes(1) pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ) pathes(1) = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) Setting_getEditorPath = GetExistPathInSetting( pathes, "Setting_getEditorPath" ) End Function Function Setting_getDiffPath() '// Rekisa : http://cgi.search.biglobe.ne.jp/cgi-bin/search7-n?q=rekisa ReDim pathes(1) pathes(0) = g_sh.SpecialFolders("MyDocuments") + "\prog\Rekisa\Rekisa.exe" pathes(1) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\Rekisa\Rekisa.exe" ) Setting_getDiffPath = GetExistPathInSetting( pathes, "Setting_getDiffPath" ) End Function