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!
:eek:

[matpez]

Bhe tutto tutto no :cool:

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

hehehehehe :oink:

[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 :D

[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 :)