Version 4.00

[vbslib/main.git] / _src / Test / vbsool_test / vbslib / vbslib300 / setting_default / PC_setting_default.vbs

diff --git a/_src/Test/vbsool_test/vbslib/vbslib300/setting_default/PC_setting_default.vbs b/_src/Test/vbsool_test/vbslib/vbslib300/setting_default/PC_setting_default.vbs
deleted file mode 100644 (file)
index 72c7ac3..0000000
--- a/_src/Test/vbsool_test/vbslib/vbslib300/setting_default/PC_setting_default.vbs
+++ /dev/null
@@ -1,77 +0,0 @@
-Option Explicit \r
-\r
-Dim  g_SrcPath\r
-Dim  g_PC_setting_default_Path\r
-     g_PC_setting_default_Path = g_SrcPath\r
-\r
-\r
-Function  Setting_getEditorCmdLine(i)\r
-  Dim  ret, paths\r
-\r
-  If VarType( i ) = vbString Then\r
-    ret = GetSearchOpenCmdLine( i )  '// i is PathAndName\r
-  ElseIf i <> 3 Then\r
-    paths = Array( _\r
-      g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _\r
-      g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _\r
-      g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )\r
-    ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )\r
-    If i = 1 Then  ret = """" + ret + """ ""%1"""\r
-    If i = 2 Then\r
-      If InStr( ret, "sakura.exe" ) > 0 Then\r
-        ret = """" + ret + """ -Y=%d ""%1"""\r
-      Else\r
-        ret = """" + ret + """ ""%1"""\r
-      End If\r
-    End If\r
-  ElseIf i = 3 Then\r
-'    ReDim  pathes(4)\r
-'    pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\search_open\search_open.exe" )\r
-'    pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\search_open\search_open\search_open.exe" )\r
-'    pathes(2) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" )\r
-'    pathes(3) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" )\r
-'    pathes(4) = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" )\r
-    paths = Array( _\r
-      g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\sakura\sakura.exe" ), _\r
-      g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\sakura\sakura\sakura.exe" ), _\r
-      g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" ) )\r
-    ret = GetExistPathInSetting( paths, "Setting_getEditorCmdLine" )\r
-    If InStr( ret, "search_open.exe" ) > 0 Then\r
-      ret = """" + ret + """ ""%1#%2"""\r
-    Else\r
-      ret = """" + ret + """ ""%1"""\r
-    End If\r
-  End If\r
-  Setting_getEditorCmdLine = ret\r
-End Function\r
-\r
-\r
-Function  Setting_getDiffCmdLine(i)\r
-  Dim  ret\r
-  ReDim  pathes(1)\r
-  pathes(0) = g_sh.ExpandEnvironmentStrings( "%ProgramFiles%\Rekisa\Rekisa.exe" )\r
-  pathes(1) = g_sh.ExpandEnvironmentStrings( "%myhome_mem%\prog\Rekisa\Rekisa\Rekisa.exe" )\r
-  ret = GetExistPathInSetting( pathes, "Setting_getDiffCmdLine" )\r
-  If i = 2 Then  ret = """" + ret + """ ""%1"" ""%2"""\r
-  If i = 3 Then  ret = """" + ret + """ ""%1"" ""%2"" ""%3"""\r
-  Setting_getDiffCmdLine = ret\r
-End Function\r
-\r
-\r
-Sub  Setting_openFolder( Path )\r
-  echo  ">Open folder """ + Path + """"\r
-  If GetOSVersion = 6.0 Then\r
-    echo "Open folder need Sleep on Vista..."\r
-    Sleep(500)\r
-  End If\r
-\r
-  If g_fs.FolderExists( Path ) Then\r
-    g_sh.Run "explorer """ + Path + """"\r
-  ElseIf g_fs.FileExists( Path ) Then\r
-    g_sh.Run "explorer /SELECT, """ + Path + """"\r
-  Else\r
-    Err.Raise  1,, """" + Path + """ \82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\81B"\r
-  End If\r
-\r
-End Sub\r
- \r