Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
No Format
Private Sub main_function()

    cmd = "C:\test.cmd"
    retval = Shell(cmd, vbMaximizedFocus)

End Sub
No Format
Sub Barcode_Main()
    
Dim Foldername As String
Foldername = "C:\barcode\fre3of9x.ttf"
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
    
End Sub