Ligge filen lokalt eller på et netshare?

Forslag:

        Public Shared Function DevTyp(fnm As String) As DriveType
            If fnm.StartsWith("\\") Then
                Return DriveType.Network
            ElseIf fnm(1) = ":"C Then
                Return (New DriveInfo(fnm)).DriveType
            Else
                Return DriveType.Unknown
            End If
        End Function

Hej, nu var jeg måske ikke præcis nok, men det er et mapped netværksdrev.

/Kenneth

Function CheckType(Byval Sti as String)
        Dim NumData As Integer = 0
        Dim Drive As System.IO.DriveInfo = My.Computer.FileSystem.GetDriveInfo(Sti)
        NumData = Drive.DriveType

        Select Case NumData
            Case 2
                CheckType = "Removable"
            Case 3
                CheckType = "Fixed"
            Case 4
                CheckType = "Network"
            Case 5
                CheckType = "CD-ROM"
            Case 6
                CheckType = "RAM Disk"
            Case Else
                CheckType = "Unknown"
        End Select
    End Function

Mener den siger drevet er fixed, hvis det er lokalt drev. Og hvis det er netværks drev, så siger den network.

Et mapped netvaerksdrev burde haandteres fint af:

ElseIf fnm(1) = ":"C Then
                Return (New DriveInfo(fnm)).DriveType

Hvad gør C'et i

ElseIf fnm(1) = ":"C Then

Hvis man nu også lige skulle lære noget nyt :-)

Tester om det andet tegn er et kolon, saaledes at den fanger C:, D: etc..

Hej,

Takker :-)

Fik begge jeres forslag til at virke :-) Så kan i begge svare?

Tillægs spørgsmål, hvis det lige er til at svare på. Kan man, hvis det er et netværksdrev, så udlede hostnavnet eller ipadressen på der hvor drevet er lokaliseret?

/Kenneth

proev det her lille program:

Imports System
Imports System.Management

Namespace E
    Public Class Program
        Public Shared Sub Main(args As String())
            Dim wmi As ObjectQuery = New WqlObjectQuery("SELECT * FROM Win32_MappedLogicalDisk")
            Dim mlds As New ManagementObjectSearcher(wmi)
            For Each mld As ManagementObject In mlds.[Get]()
                Console.WriteLine(Convert.ToString(mld("Name")) & " = " & mld("ProviderName"))
            Next
            Console.ReadKey()
        End Sub
    End Class
End Namespace

og et svar fra mig

Hmm, den siger at disse er unknown/undefined:
ObjectQuery
ManagementObjectSearcher
ManagementObject

/Kenneth

Giv du dem bare til Arne, så han snart kan få de magiske 1. mil :)

Tilfoej en ref til System.Management.dll