Datei auf allen Partitionen suchen

Private Sub überntip_Click() Dim i As Byte Dim name As String With Application.FileSearch .LookIn = .SearchSubFolders = True .FileName = "FTG v1.1.xls" .MatchTextExactly = True .Execute For i = 1 To .FoundFiles.Count name = .FoundFiles(i) Next i End With Workbooks.Open name End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
so ganz funktioniert dein Code aber noch nicht. Was bezweckst du denn mit der i-Schleife ?
Auch wenn du schon einen tipp bekommen hast, das soll jetzt nicht umsonst sein :-)

Option Explicit
Private Sub überntip_Click()
Dim myDriveArr() 'As Variant
Dim i As Byte, n As Byte
Dim Sname As String, FName As String
myDriveArr = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
Sname = "FTG v1.1.xls"
Debug.Print UBound(myDriveArr)
For n = 0 To UBound(myDriveArr())
    With Application.FileSearch
        .LookIn = myDriveArr(i)
        .SearchSubFolders = True
        .Filename = Sname
        .MatchTextExactly = True
        .Execute
        For i = 1 To .FoundFiles.Count
            FName = .FoundFiles(i)
            If FName = Sname Then
                Workbooks.Open FName
                Exit Sub
            End If
        Next i
    End With
Next n
MsgBox "Datei wurde nicht gefunden"
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Allerdings solltest du deinen Benutzer auf eine längere EXCEL-Auszeit hinweisen.
Wenn du eine Datei auf allen Partionen suchen willst, kann das verdammt lange dauern.
Schon für eine halbgefüllte 10GB-partition C benötigt das Makro knapp 4 Minuten.
Gruss Rainer

Sub laufwerke() Dim fso As IWshRuntimeLibrary.FileSystemObject Dim d As IWshRuntimeLibrary.Drive Set fso = New IWshRuntimeLibrary.FileSystemObject Debug.Print "Anzahl lokale Laufwerke: " & fso.Drives.Count For Each d In fso.Drives Debug.Print "Laufwerk: " & d.DriveType Debug.Print "Laufwerk: " & d.DriveLetter Next End Sub

Hallo Michael,
ist ne interessante Alternative,... :-)) geht aber auch ohne WSH ;-))

Sub Show_all_Drives()
'(c) ramses
Dim myFSO As Object, myDrv As Object, drvCount, drvStr As String, vName As String, drvTyp As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set drvCount = myFSO.Drives
On Error Resume Next
drvStr = ""
For Each myDrv In drvCount
        Debug.Print myDrv.DriveLetter
        Select Case myDrv.DriveType
            Case 0: drvTyp = "Unknown"
            Case 1: drvTyp = "Removable"
            Case 2: drvTyp = "Fixed"
            Case 3: drvTyp = "Network"
            Case 4: drvTyp = "CD-ROM"
            Case 5: drvTyp = "RAM Disk"
        End Select
        drvStr = drvStr & drvTyp & ": " & myDrv.DriveLetter & " - "
        If myDrv.DriveType = 3 Then
            vName = myDrv.ShareName
        Else
            vName = myDrv.VolumeName
        End If
        drvStr = drvStr & vName & vbCrLf
    Next
    MsgBox drvStr
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Datei auf allen Partitionen suchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread