Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Exel Befehl Filesearch findet keine zip dateien

Mitglied: Gerry

Gerry (Level 1) - Jetzt verbinden

26.02.2005, aktualisiert 01.03.2005, 7685 Aufrufe, 6 Kommentare

Set fs = Application.FileSearch
With fs
.LookIn = "C:\testordner"
.Filename = "*.*"
.SearchSubFolders = True
If .Execute > 0 Then
' MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
x = fs.FoundFiles(i)

Worksheets("tabelle3").Range("b" & i).Value = x

Next i
Else
'MsgBox "There were no files found."

End If

Wie kann ich es so schreiben das es zip endungen findet.
Anderes findet es
Einer einen Tip
Gruss Gerry
Mitglied: Trbun
26.02.2005 um 20:33 Uhr
.Filename = "*.zip"

das sollte die Lösung sein.
Bitte warten ..
Mitglied: Gerry
26.02.2005 um 23:03 Uhr
Nein das geht nicht habs probiert ich bin nicht der einzige mit diesem fehler.
Bitte warten ..
Mitglied: gemini
27.02.2005 um 00:07 Uhr
Evtl. hilft dir das.
Sieh dir mal den Beitrag von Ron de Bruin an
http://www.excelforum.com/archive/index.php/t-252336.html
Bitte warten ..
Mitglied: Gerry
27.02.2005 um 13:05 Uhr
Was du geschrieben hast funktioniert zwar, aber ich brauche die Suche leider über Netzwerk.
und der Verwendete dir Befehl geht leider nicht über Netzwerkpfade.
Sonst noch einen Ide.
Bitte warten ..
Mitglied: gemini
27.02.2005 um 13:31 Uhr
Aus der Excel-Hilfe:

Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 in sf
        If Right(zip, 3) Then
            s = s & f1.name & vbCrLf
        End If
    Next
MsgBox s
End Sub
Bitte warten ..
Mitglied: Gerry
01.03.2005 um 19:26 Uhr
Super gemini hatt funktioniert danke
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Datei per CMD Konsolen Befehl - in Windows mitgeliefertes Standard ZIP packen - ohne extra Tools(ZIP, RAR, 7-ZIP)

Frage von RycoDePsycoBatch & Shell7 Kommentare

Hallo, wie die Überschrift es schon sagt, ich möchte mit Boardmitteln also ohne ein Tool / Programm extra installieren ...

Datenbanken

Alternative zu SQL LIKE Befehl dieser findet zu viel

gelöst Frage von MaffiDatenbanken5 Kommentare

Hallo zusammen, ich habe in einer Spalte folgenden Text 1. Datensatz: 250,4250,8953,436 2. Datensatz: 4250,8953,250 3. Datensatz: 8250,1250,7250 nun ...

Batch & Shell

Alle Dateien außer zip löschen

gelöst Frage von chb1982Batch & Shell4 Kommentare

Hallo zusammen, hat jemand eine Idee wie ich es schaffe alle Dateien, außer die eines bestimmten Dateityps in einem ...

PHP

ZIP-Datei auf Server speichern

gelöst Frage von YanmaiPHP23 Kommentare

Hallo ihr Administratoren, ich möchte eine ZIP-Datei auf einem Server speichern. Dabei habe ich schonmal diesen Code: Aber als ...

Neue Wissensbeiträge
Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 2 TagenAusbildung35 Kommentare

Sind ja nur Steuergelder

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 4 TagenSpeicherkarten5 Kommentare

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 4 TagenSicherheit1 Kommentar

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 4 TagenHardware4 Kommentare

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Passwortwechsel Zeitpunkt festlegen
Frage von Looser27Windows Userverwaltung27 Kommentare

Guten Morgen liebe Kolleginnen und Kollegen, da es eine Userin in meinem Urlaub geschafft hat, sich vom AD vollständig ...

Windows Server
Probleme im AD am Außenstandort
gelöst Frage von emeriksWindows Server19 Kommentare

Hi, wir haben ein Problem mit AD und GPO am Außenstandort und ich stehe momentan mächtig auf dem Schlauch. ...

Windows 10
Windows 10 Spracherkennung - Eure Meinungen?
Frage von honeybeeWindows 1014 Kommentare

Hallo, wollte heute mal aus Neugier die Spracherkennung unter Windows 10 (Version 1803) ausprobieren und war mehr wie enttäuscht. ...

Switche und Hubs
POE-Switche
gelöst Frage von MiStSwitche und Hubs13 Kommentare

Guten Morgen, ich überlege ob ich in unserem Netzwerk die aktuellen Switche (D-LINK DGS-1210-28) durch PoE-Switche ersetzen soll. Der ...