Visual Basic

Sinchan Nikam wrote:

but as soon as the no. of user are increased we are
faced process Id problem

Sinchan Nikam wrote:

Please help me how to set the connection pulling in VB6.0

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'get the drives
        Dim di As System.IO.DriveInfo
        For Each di In My.Computer.FileSystem.Drives
            'check that the drive is ready
            If di.IsReady = True Then
                If di.DriveFormat = "CDFS" Then
                    If di.VolumeLabel = "My Stuff" Then
                        'list files
                        FileSearch(di.Name)
                    End If
                End If
            End If
        Next
    End Sub

    Private Sub FileSearch(ByVal Drive As String)
        'search for files on the drive matching criteria

        Dim strCriteria As String = "*.exe"
        Dim objDirInfo As New DirectoryInfo(Drive)
        Dim objFile As FileInfo

        'list each file in all directories
        For Each objFile In objDirInfo.GetFiles(strCriteria, SearchOption.AllDirectories)
            If objFile.Name = "Setup.exe" Then
                objFile.Open(FileMode.Open, FileAccess.Read)
            End If
        Next
    End Sub

End Class

The ANZAC wrote:

Didnt seem to work.

The ANZAC wrote:

Is it possible to directly access the drive that the program was run from.