Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Ersatz für With Application.FileSearch in Excel 2010

Frage Entwicklung VB for Applications

Mitglied: pc-news

pc-news (Level 1) - Jetzt verbinden

11.08.2012 um 20:33 Uhr, 10425 Aufrufe, 2 Kommentare

Hallo,

habe in einer Excel Mappe folgendes VBA Script:

Private Function isFileAvailable(filename As String) As Boolean
With Application.FileSearch
.NewSearch
.filename = Right(filename, Len(filename) - InStrRev(filename, "\"))
.LookIn = Left(filename, InStrRev(filename, "\"))
isFileAvailable = .Execute() > 0
End With

End Function

In Excel 2010 funktioniert leider "With Application.FileSearch" nicht mehr.

Kennt jemand eine Alternative?

Gruß
Yvonne
Mitglied: bastla
12.08.2012, aktualisiert 13.08.2012
Hallo pc-news!

Um das Vorhandensein einer Datei zu prüfen, sollte
01.
Function isFileAvailable(filename As String) As Boolean 
02.
isFileAvailable = CreateObject("Scripting.FileSystemObject").FileExists(filename) 
03.
End Function
genügen ...

Grüße
bastla
Bitte warten ..
Mitglied: pc-news
12.08.2012 um 20:58 Uhr
Hallo bastla,

vielen Dank für Deine Antwort. Hat mir super geholfen, genau das habe ich gesucht.

Grüße
pc-news
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 Doc Properties ohne Makros (1)

Frage von arduino zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 unter Windows 10pro (1)

Frage von MiSt zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 braucht ewig für speichern unter (6)

Frage von zlatti75 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (17)

Frage von SYS64738 zum Thema Weiterbildung ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...