Kan jeg kende forskel på mapper og filer?

Private Sub Form_Load()
Dim strPath1  As String
Dim strPath2  As String

strPath1 = "C:\ADIMPORT\ADSCAN\ADSCAN.EXE"
strPath2 = "C:\ADIMPORT\ADSCAN\ADSCAN.ORG"

  If LCase$(strPath1) = LCase$(strPath2) Then
    MsgBox "De er ens."
      Else
    MsgBox "De er ikke ens."
  End If
End Sub

>> sjh
Kan du forklare det lidt nærmere

/Søren

Hvad er det du ikke forstår?

Som jeg ser det laver du bare strengen om til små bogstaver.
Måske er min forklaring ikke tydelig nok.

Hvis jeg har en sti, der hedder:
  "c:\adimport\adscan\adscan.org"
Hvordan kan jeg så checke om "adscan.org" er en fil eller en mappe?

'----------------------------------- Form1 -----------------------------------
Option Explicit

Private Sub Form_Load()
Dim strPath  As String
  strPath = "c:\autoexec.bat"
 
  If FolderExists(strPath) = False And FileExists(strPath) = True Then
    MsgBox "Det er en file."
  ElseIf FolderExists(strPath) = True Or FileExists(strPath) = True Then
    MsgBox "Det er et bibliotek."
  ElseIf FolderExists(strPath) = False And FileExists(strPath) = False Then
    MsgBox "Stigen er ikke korrekt."
  End If
End Sub
'----------------------------------- Form1 -----------------------------------

'---------------------------------- Module1 ----------------------------------
Option Explicit

Private Const MAX_PATH As Long = 260
Private Const INVALID_HANDLE_VALUE As Long = -1
Private Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As FILETIME
        ftLastAccessTime As FILETIME
        ftLastWriteTime As FILETIME
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH
        cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Public Function FileExists(ByVal strFiles As String) As Boolean
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long
  hFile = FindFirstFile(strFiles, WFD)
  FileExists = CBool(hFile <> INVALID_HANDLE_VALUE)
  Call FindClose(hFile)
End Function

Public Function FolderExists(ByVal strFolder As String) As Boolean
Dim hFile As Long
Dim WFD As WIN32_FIND_DATA
  strFolder = QualifyPath(strFolder)
  hFile = FindFirstFile(strFolder, WFD)
  FolderExists = CBool((hFile <> INVALID_HANDLE_VALUE) And _
                (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY))
  Call FindClose(hFile)
End Function

Private Function QualifyPath(ByVal strFolder As String) As String
  strFolder = Trim$(strFolder)
  If Right$(strFolder, 1) = "\" Then
        QualifyPath = Left$(strFolder, Len(strFolder) - 1)
  Else: QualifyPath = strFolder
  End If
End Function
'---------------------------------- Module1 ----------------------------------

OKAY sjh
Det var en ordentlig smøre.
Den bliver jeg nok nødt til at sove på. :-)
Go'nat

/Søren

ha ha..

Du kan også bruge FileSystemObject i stedet for et API-kald - så kan du gøre det på 5-10 linier :o)

>> martin moth
Kunne du så ikke tænke dig, at skrive hvordan det gøres :-)
/Søren

du kan få den af mig ;-)

Option Explicit

Private Sub Form_Load()
Dim strPath  As String
Dim fso As Object
  strPath = "c:\autoexec.bat"

  Set fso = CreateObject("Scripting.FileSystemObject")

    With fso
      If .FolderExists(strPath) = False And .FileExists(strPath) = True Then
        MsgBox "Det er en file."
      ElseIf .FolderExists(strPath) = True Or .FileExists(strPath) = True Then
        MsgBox "Det er et bibliotek."
      ElseIf .FolderExists(strPath) = False And .FileExists(strPath) = False Then
        MsgBox "Stigen er ikke korrekt."
      End If
    End With

  Set fso = Nothing
End Sub

Men jeg vil nok fortrække det som API-Kald, det er hurtigere i forhold til FileSystemObject.

Med et API-Kald springer du en eller flere funktioner over.

Du kan prøve en lille speed test. API-Kald mod Selve VB :-)

http://hjem.get2net.dk/sjh/eksperten/CopyMemory.zip