Version 2.00

[vbslib/main.git] / _src / _replica / vbslib / setting_default / tools_setting_default.vbs

diff --git a/_src/_replica/vbslib/setting_default/tools_setting_default.vbs b/_src/_replica/vbslib/setting_default/tools_setting_default.vbs
new file mode 100644 (file)
index 0000000..e9ee16c
--- /dev/null
+++ b/_src/_replica/vbslib/setting_default/tools_setting_default.vbs
@@ -0,0 +1,19 @@
+Option Explicit \r
+\r
+Function  Setting_getEditorPath()\r
+  '// sakura editor : http://cgi.search.biglobe.ne.jp/cgi-bin/search7-n?q=sakura+editor\r
+  ReDim  pathes(1)\r
+  pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" )\r
+  pathes(1) = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" )\r
+  Setting_getEditorPath = GetExistPathInSetting( pathes, "Setting_getEditorPath" )\r
+End Function\r
+\r
+Function  Setting_getDiffPath()\r
+  '// Rekisa : http://cgi.search.biglobe.ne.jp/cgi-bin/search7-n?q=rekisa\r
+  ReDim  pathes(1)\r
+  pathes(0) = g_sh.SpecialFolders("MyDocuments") + "\prog\Rekisa\Rekisa.exe"\r
+  pathes(1) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\Rekisa\Rekisa.exe" )\r
+  Setting_getDiffPath = GetExistPathInSetting( pathes, "Setting_getDiffPath" )\r
+End Function\r
+\r
+ \r