Visual Basic

hsprasain wrote:

The system can't find the file specified.

hsprasain wrote:

I felt "SH_EVP2.exe" + yourParamString string got concanated and come up with new file name.

hsprasain wrote:

However I have input1.sa in the bin directory.

<br />
weekofyear=(Datatimepicker1.value.dayofyear)/7<br />
msgbox(weekofyear)<br />

Yogesh Agarwal wrote:

use the property value and day of year it will show you the day then divide it by 7 you will got the week of year

<DllImport("winspool.drv", EntryPoint:="EnumPrinters", _
SetLastError:=True, CharSet:=CharSet.Ansi, _
ExactSpelling:=False, _
CallingConvention:=CallingConvention.StdCall)> _
Public Function EnumPrinters(<InAttribute()> ByVal Flags As EnumPrinterFlags, _
                             <InAttribute()> ByVal Name As String, _
                             <InAttribute()> ByVal Level As Int32, _
                             <OutAttribute()> ByVal lpBuf As IntPtr, _
                             <InAttribute()> ByVal cbBuf As Int32, _
                             <OutAttribute()> ByRef pcbNeeded As Int32, _
                             <OutAttribute()> ByRef pcbReturned As Int32) As Boolean

End Function

<Flags()> _
Public Enum EnumPrinterFlags
    PRINTER_ENUM_DEFAULT = &H1
    PRINTER_ENUM_LOCAL = &H2
    PRINTER_ENUM_CONNECTIONS = &H4
    PRINTER_ENUM_FAVORITE = &H4
    PRINTER_ENUM_NAME = &H8
    PRINTER_ENUM_REMOTE = &H10
    PRINTER_ENUM_SHARED = &H20
    PRINTER_ENUM_NETWORK = &H40
End Enum

Dim pcbNeeded As Int32 '\\ Holds the requires size of the output buffer (in bytes)
Dim pcReturned As Int32 '\\ Holds the returned size of the output buffer
Dim pPrinters As IntPtr
Dim pcbProvided As Int32 = 0

If Not EnumPrinters(EnumPrinterFlags.PRINTER_ENUM_NETWORK, String.Empty, 1, pPrinters, 0, pcbNeeded, pcReturned) Then
    If pcbNeeded > 0 Then
        pPrinters = Marshal.AllocHGlobal(pcbNeeded)
        pcbProvided = pcbNeeded
        If Not EnumPrinters(EnumPrinterFlags.PRINTER_ENUM_NETWORK, String.Empty, 1, pPrinters, pcbProvided, pcbNeeded, pcReturned) Then
            Throw New Win32Exception
        End If
    End If
End If

If pcReturned > 0 Then
    '\\ Get all the printers for the given server
    Dim ptNext As IntPtr = pPrinters
    While pcReturned > 0
        Dim pi1 As New PRINTER_INFO_1
        Marshal.PtrToStructure(ptNext, pi1)
        If Not pi1.pPrinterName Is Nothing Then
           'Found a printer on the network...
        End If
        ptNext = New IntPtr(ptNext.ToInt32 + Marshal.SizeOf(pi1))
        pcReturned -= 1
    End While
End If

'\\ Free the allocated buffer memory
If pPrinters.ToInt32 > 0 Then
    Marshal.FreeHGlobal(pPrinters)
End If