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, 10787 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
Excel 2010 Einstellungen für den Zugriffsschutz (2)

Frage von achklein zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 - Microsoft Excel kann die Daten nicht kopieren (4)

Frage von EDV-Oellerking zum Thema Microsoft Office ...

Monitoring
gelöst VNC Ersatz!? (25)

Frage von Hendrik2586 zum Thema Monitoring ...

Microsoft Office
Excel 2010 Doc Properties ohne Makros (1)

Frage von arduino zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (12)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...