поиск в массиве

[|( () ( T |/| |(]

Есть массив типа String, в нем хранятся имена файлов, как можно организовать поиск в этом массиве по маске (*.txt,*.*,и т.д.).
Щелчок по кнопке поиск результатов не дал. (

[Dmitriy2003]

Есть в вб такой оператор Like, может пригодится

[Amed]

Код: Выделить всё

Private Sub cmdSearch_Click()
Dim a(1 To 3) As String, i As Long

a(1) = "file.txt"
a(2) = "file.exe"
a(3) = "fil"

Me.Cls
For i = 1 To 3
    If a(i) Like txtMask.Text Then Me.Print a(i)
Next i
End Sub

Попробуй маски "*", "*.*", "*.txt".

[|( () ( T |/| |(]

Dmitriy2003: нисказал бы, так и жил бы незнаючи

[|( () ( T |/| |(]

Ещё парочку вопросов, дабы не создовать новую тему:
1.Как узнать количество локальных дисков, и их имен?

Единственное что придумал:
ABC = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "i", "K", "L", "M", "N", "O", "P", "R", "Q", "S", "T", "U", "V", "W", "X", "Y", "Z")
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))

For i = 2 To 25
DoEvents
DiscName = ABC(i) & ":\"
If Dir(DiscName) <> "" Then
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation DiscName, VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
End If
If (Dir(DiscName) <> "") And (FSName = "NTFS" Or FSName = "FAT" Or FSName = "FAT32") Then

End If
Next

Но мне кажется есть более простой способ.

2. Как узнать сколько места занято на диске?

[Dmitriy2003]

Вариант
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=54293&lngWId=1

[Nicky]

...Но мне кажется есть более простой способ...

Более простой способ проверки диска

Код: Выделить всё

Function isDriveReady(sDriveLetter As String) As Boolean
  On Error Resume Next
  isDriveReady = CreateObject("Scripting.FileSystemObject").FileExists(sDriveLetter & ":\NUL")
End Function


[Andrey Fedorov]

1.Как узнать количество локальных дисков, и их имен?
2. Как узнать сколько места занято на диске?

Из Help-a:

Код: Выделить всё

Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - "
   s = s & d.VolumeName   & "<BR>"
   s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)
   s = s & " Kbytes"
   ShowFreeSpace = s
End Function

[RayShade]

Проще всего получить через WMI коллекцию Win32_DiskDrive, ну и уже потом дальше на восток...

[Andrey Fedorov]

Проще всего получить через WMI коллекцию Win32_DiskDrive, ну и уже потом дальше на восток...

Да куда уж проще-то:

Код: Выделить всё


Public Sub Main()
    Dim d As Scripting.Drive, fso As New Scripting.FileSystemObject
    Dim s As String
    Debug.Print "----------"
    For Each d In fso.Drives
        Select Case d.DriveType
            Case 1: s = "Removable"
            Case 2: s = "Fixed"
            Case 3: s = "Network"
            Case 4: s = "CD-ROM"
            Case 5: s = "RAM Disk"
            Case Else: s = "Unknown"
        End Select
        s = "Drive " & d.DriveLetter & ": - " & s
       
        On Error Resume Next
        s = s & ", File System = " & d.FileSystem & ", Total Size = " & d.TotalSize
        If Err.Number Then s = s & ", <" & Err.Description & ">"
        On Error GoTo 0
        Debug.Print s
    Next d
End Sub


[RayShade]

Andrey Fedorov

Ну так неинтересно. А вот например, надо узнать, какой там размер сектора или еще что Так что WMI мне больше нравится в этом смысле.

[Andrey Fedorov]

Andrey Fedorov
Ну так неинтересно. А вот например, надо узнать, какой там размер сектора или еще что Так что WMI мне больше нравится в этом смысле.

Размер сектора по условию задачи не нужен

[RayShade]

Даже если сейчас это не указано, то все равно решение должно быть легко расширяемым Вдруг понадобится потом.

[Andrey Fedorov]

Даже если сейчас это не указано, то все равно решение должно быть легко расширяемым Вдруг понадобится потом.

Учитывая никому не нужное "расширение на будущее" вместо примитива нагородить целый огород...

[dr.MIG]

Учитывая никому не нужное "расширение на будущее" вместо примитива нагородить целый огород...

Выскажусь за WMI: я бы не сказал, что с WMI код будет намного сложнее, тем более создать этот код ещё проще - не надо даже писать его самому, достаточно воспользоваться какой-нить программой типа WMI CodeCreator.

[AntonGV]

Я получаю список дисков с помощью функций GetLogicalDriveStrings и GetDriveType. С нормальными дисками все работает отлично, но у меня есть 2 диска с файловой системой BFS и программа не работает. Как получить диски с другими ф.с.

[Andrey Fedorov]

Я получаю список дисков с помощью функций GetLogicalDriveStrings и GetDriveType. С нормальными дисками все работает отлично, но у меня есть 2 диска с файловой системой BFS и программа не работает. Как получить диски с другими ф.с.

А тот код что я дал - что дает?

[AntonGV]

скажите тогда, какую библиотеку надо подключить чтобы он работал?

[Andrey Fedorov]

Microsoft Scripting Runtime

[AntonGV]

Спасибо. Теперь работает, только не показывает ф.с. диска(bfs) так как наверно не знает ее.

[|( () ( T |/| |(]

Спасибо всем. всё роботает.

Не подскажите как в ListView дбавить иконки привязоннае к расширению фаила? (в ListView хроняться имена файлов, чтобы рядом были иконки этих файлов)

Насколько знаю надо их в ImageList занисти, а вот как?

[Viper]

об иконках привязанных к расширению файла смотреть FAQ

[JohnK]

|( () ( T |/| |(
Ты решил файловый менеджер написать силами участников VB?

[Andrey Fedorov]

|( () ( T |/| |(
Ты решил файловый менеджер написать силами участников VB?

Ну, может он свой аналог SHFileOperation пишет...