s = Left(s, InStr(s, Chr(0)) - 1) If Len(App.Path) > 3 Then u = "\" u = App.Path & u & App.EXEName & ".EXE" IsRunUnderVB = (s <> u) End Function
確定! 回上一頁