Version 3.00

[vbslib/main.git] / _src / Test / vbslib_test / T_UI / T_Open_Data / OverDefine2.vbs

diff --git a/_src/Test/vbslib_test/T_UI/T_Open_Data/OverDefine2.vbs b/_src/Test/vbslib_test/T_UI/T_Open_Data/OverDefine2.vbs
new file mode 100644 (file)
index 0000000..488b159
--- /dev/null
+++ b/_src/Test/vbslib_test/T_UI/T_Open_Data/OverDefine2.vbs
@@ -0,0 +1,12 @@
+Function  Setting_getEditorCmdLine(i) \r
+  Dim  ret\r
+\r
+  If VarType( i ) = vbString Then\r
+    ret = GetSearchOpenCmdLine( i )\r
+  ElseIf i = 0 Then\r
+    ret = g_sh.ExpandEnvironmentStrings( "%WinDir%\notepad.exe" )\r
+  End If\r
+  Setting_getEditorCmdLine = ret\r
+End Function\r
+\r
+ \r