Nwlapcug.com


Come cercare un File in Visual Basic



Linguaggio di programmazione Microsoft Visual Basic contiene le funzioni che ti danno la possibilità di utilizzare informazioni di sistema di Windows. Esso comprende i metodi per il recupero di informazioni su file e directory. Il metodo "GetFiles" restituisce un insieme di stringhe che rappresentano i nomi di percorso per i file. Utilizzando il parametro "GetFiles" nel programma Visual Basic, è possibile definire il nome e il percorso della directory per lavorare con le unità e i file delle applicazioni utente.

Istruzioni

1

Fare clic su "Start" in Windows e quindi fare clic su "Microsoft Visual Studio".

2

Fare clic su "File". Selezionare "Apri" e quindi fare doppio clic sul programma di Visual Basic in cui si desidera aggiungere la funzione di ricerca di file.

3

Aggiungere il seguente codice dopo la riga "Public Shared Function":

Function FindFiles(path As String, SearchStr As String,

_

FileCount As Integer, DirCount As Integer)

Dim FileName As String ' Filename variable.

Dim DirName As String ' SubDirectory Name.

Dim dirNames() As String ' Buffer for directory name

voci.

Dim nDir As Integer ' Number of directories in

Questo percorso.

Dim i As Integer ' For-loop counter.

On Error GoTo sysFileERR

If Right(path, 1) <> "\" Then path = path & "\"

' Search for subdirectories.

nDir = 0

ReDim dirNames(nDir)

DirName = Dir(path, vbDirectory Or vbHidden Or

vbArchive o vbReadOnly _

Or vbSystem) ' Even if hidden, and so on.

Do While Len(DirName) > 0

' Ignore the current and related directories.

If (DirName <> ".") And (DirName <> "..") Then

' Check for directory with bitwise comparison.

If GetAttr(path & DirName) And vbDirectory

Quindi

dirNames(nDir) = DirName

DirCount = DirCount + 1

nDir = nDir + 1

ReDim Preserve dirNames(nDir)

End If '

Directory.

sysFileERRCont:

End If

DirName = Dir() ' Get next subdirectory.

Loop

' Search through this directory.

FileName = Dir(path & SearchStr, vbNormal Or

vbHidden o vbSystem _

Or vbReadOnly Or vbArchive)

While Len(FileName) <> 0

FindFiles = FindFiles + FileLen(path & FileName)

FileCount = FileCount + 1

FileName = Dir() ' Get next file.

Wend

Per ogni Text1. Text As String In

GetFiles (_

My.Computer.FileSystem.SpecialDirectories.MyDocuments, _

FileIO.SearchOption.SearchAllSubDirectories, "*.dll")

Listbox.Items.Add(Text1.Text)

Successivo

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

Dim NumFiles As Integer, NumDirs As Integer

FindStr = Text1.Text

FileSize = FindFiles(SearchPath, FindStr, NumFiles,

NumDirs)

Text3.Text = NumFiles & " Files found in " & NumDirs

1 & _

" Directories"4

Fare clic su "File", quindi "Salva" per aggiungere la funzione di ricerca di file per il programma.