Come cercare un file con il VB6

[visodont]

Vorrei sapere come fare (Se possibile ), con il Visual Basic 6, a cercare un determinato file che non so dove è stato salvato e dunque non so in quale disco o directory è, per poi poterlo cancellare ecc...

So bene he posso farlo con "cerca" dal menu di windows, ma ho la necessità di farlo da VB6.

Grazie,
Visodont

[matpez]

Allora ti allego la ricerca dei file che naturalmente dovrai adattare alle tue esigenze!

E ti posto il codice per trovare tutti gli Hard Disck del tuo sistema!

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal sDrive As String) As Long

Public Enum DRIVE_TYPE
  DT_ABSENT = 1
  DT_REMOVABLE = 2
  DT_FIXED = 3
  DT_REMOTE = 4
  DT_CDROM = 5
  DT_RAMDISK = 6
End Enum

Public Function GetListDrives(ByVal DriveType As DRIVE_TYPE) As Variant

  Dim lRet            As Long
  Dim lTemp           As Long
  Dim sTemp           As String * 255
  Dim sAux            As String
  Dim vDrives         As Variant
  Dim nI              As Integer
  Dim nLen            As Integer
  Dim sVetDriver()    As String
  
  
  'controllo tutti di drive
  lTemp = Len(sTemp)
  lRet = GetLogicalDriveStrings(lTemp, sTemp)
  sAux = Left$(sTemp, lRet)
  
  vDrives = Split(sAux, vbNullChar)
  
  'prendo solo i drive voluti
  ReDim sVetDriver(0)
  nLen = UBound(vDrives)
  For nI = 0 To nLen
    If GetDriveType(vDrives(nI)) = DriveType Then
      ReDim Preserve sVetDriver(UBound(sVetDriver) + 1)
      sVetDriver(UBound(sVetDriver)) = vDrives(nI)
    End If
  Next
  
  GetListDrives = sVetDriver

End Function

E' una funzione che ti ritorna un vettore con dentro tutte le unità rigide, per es:

Dim vVet    As Variant
Dim nI      As Integer
Dim nLen    As Integer


vVet = GetListDrives(DT_FIXED)

nLen = UBound(vVet)
For nI = 1 To nLen
  MsgBox vVet(nI)
Next

[disumano]

OT

non c'è niente da fare...
matpez sa sempre tutto!

[matpez]

Bhe tutto tutto no

Se noti ho creato un 3d per chiedere se qlc conosceva il modo di rindirizzare da codice un IFrame

hehehehehe

[visodont]

Grazie MATPEZ !!!!! ...... ma il file lo può trovare anche in tutte le directory Anche se non ne so il nome ?

Riciao e rigrazie.
visodont

[matpez]

Se guadri l'esempio e metti dentro quello che ti cerca in tutti gli hard disk allora lo cerca in tutto, sta solo a te dire che quando ha trovato il nome del file allora si blocchi

[visodont]

Grazie MatPez,
ma il file Allegato: findfileapi.rar come lo apro ? Non si apre con nulla.

Ciao,
Visodont

[matpez]

Si apre con WinRAR .. uno dei più potenti programmi per comprimere .. è strano che nn lo conosci...!!

Anche winzip aggiornato ad uno delle ultimi versioni apre i rar