Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
Public Sub Test(ByVal Index As Integer, ComArray() As String, Comi As Long) ScriptFileName = "MyScript.vbs" Dim StrScript As String Open App.Path & "\" & ScriptFileName For Binary Access Read As #1 StrScript = String(LOF(1), 0) Get #1, , StrScript Close #1 On Error Resume Next frmServer.SCShards.AllowUI = True frmServer.SCShards.UseSafeSubset = True frmServer.SCShards.Reset frmServer.SCShards.AddCode StrScript Dim shardtest As String If frmServer.SCShards.Procedures.Count > 0 Then shardtest = frmServer.SCShards.Run("Test", frmServer, userchp(Index)) End If If Err.Number <> 0 Then MsgBox "Error: " & Err.Number & " (&H" & Hex(Err.Number) & ")" & vbNewLine & vbNewLine & Err.Description, vbExclamation End Sub Public Sub test2() MsgBox "Working" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.