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

gelöst Access 2010 VBA Prüfen ob bestimmte Dateien in einem Verzeichnis vorhanden sind , wenn ja dann x sonst nein dann y ...

Mitglied: karlchristian

karlchristian (Level 1) - Jetzt verbinden

17.04.2014, aktualisiert 11:44 Uhr, 9803 Aufrufe, 4 Kommentare

Hallo wie bekomme ich es am besten hin, das ich in einem Verzeichnis Dateien anhand einer von mir vorgegeben Liste Prüfen lasse, ob diese vorhanden sind.

Ich möchte selber Dateinamen vorgeben, welche in einem Verzeichnis geprüft werden sollen, ob diese vorhanden sind,
falls alle Deteien vorhanden sind dann
x
falls nicht, soll er den Dateinamen ausgeben der fehlt.

vielleicht kann mit jemand mitteilen wie ich dieses per VBA lösen kann (PS: ich arbeite mit Access 2010)

Danke für eure Hilfe
Mitglied: colinardo
17.04.2014, aktualisiert um 12:00 Uhr
Hallo karlchristian,
kein Problem, kannst du z.B. so machen. In Zeile 2 den Ordner angeben und in Zeile 3 die Dateien welche geprüft werden sollen.
01.
Dim ordner, files 
02.
ordner = "C:\temp" 
03.
files = Array("test.csv","test2.csv") 
04.
Set fso = CreateObject("Scripting.Filesystemobject") 
05.
 
06.
For Each file In files 
07.
	If Not fso.FileExists(fso.BuildPath(ordner,file)) Then 
08.
		MsgBox "Die Datei '" & file & "' existiert nicht!",vbExclamation 
09.
	End If 
10.
Next 
11.
set fso = Nothing
Grüße Uwe
Bitte warten ..
Mitglied: karlchristian
17.04.2014 um 12:31 Uhr
Hallo Uwe,
danke für die Antwort,

habe nur das Problem, dass der Dateinamen immer unterschiedlich ist, und ich nur einen Teilbereich prüfen möchte,

wie geht dieses den?

z.b. Datei Test1*, Test2* ect..
Im Moment sagt er nur, dass er die Dateien nicht findet,
obwohl eine test1-23445; Test2-34455 ect vorhanden ist.

Danke nochmal.
Gruss Karl
Bitte warten ..
Mitglied: colinardo
17.04.2014, aktualisiert 05.06.2014
z.B. so,
01.
Option Compare Text 
02.
Dim ordner, files, gefunden 
03.
ordner = "C:\temp" 
04.
files = Array("test1*","test2*") 
05.
Set fso = CreateObject("Scripting.Filesystemobject") 
06.
 
07.
For Each file In files 
08.
	gefunden = False 
09.
	For Each f In fso.GetFolder(ordner).Files 
10.
		If f.Name like file Then 
11.
			gefunden = True 
12.
                        Exit For 
13.
		End If  
14.
	Next 
15.
	If Not gefunden Then 
16.
		MsgBox "Eine Datei dir mit '" & file & "' anfängt, existiert nicht.",vbExclamation 
17.
	End If 
18.
Next 
19.
Set fso = Nothing
Eine andere Methode ohne das FileSystemObject ist der dir() Befehl:

01.
Dim ordner, files, pattern 
02.
ordner = "C:\temp" 
03.
files = Array("test1*","test2*") 
04.
 
05.
For Each pattern in files 
06.
    If Dir(ordner & "\" & pattern) = "" then 
07.
        MsgBox "Eine Datei mit dem Muster '" & pattern & "' wurde nicht gefunden" 
08.
    End If 
09.
Next

Grüße Uwe
Bitte warten ..
Mitglied: karlchristian
17.04.2014 um 13:57 Uhr
vielen Dank,

das hat mir weiterhrolfen
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Msgbox nur ausführen, wenn bestimmte Datei in einem Verzeichnis vorhanden

Frage von Komoran12VB for Applications2 Kommentare

Moin, ich habe da mal wieder eine Frage an Euch. Über nachfolgenden Codeschnipsel (.vbs Datei) erstelle ich eine msgbox: ...

Batch & Shell

Batch zum Prüfen ob ein bestimmter Benutzer in einem bestimmten Verzeichnis ist

Frage von TechnikTVBatch & Shell7 Kommentare

Hallo ihr alle, ich steh gerade auf dem Schlauch ich möchte per Batch prüfen ob ein bestimmter Benutzer in ...

Batch & Shell

Wenn Verzeichnis vorhanden dann ersetze Datei

gelöst Frage von xbast1xBatch & Shell4 Kommentare

Hallo zusammen, ich benötige ein Skript für folgendes Szenario. Wenn Verzeichnis "Muster" vorhanden, dann ersetze Datei "xyz". Hat evtl. ...

Microsoft Office

Unterbinden das eine Access Datei aus bestimmten Verzeichnis geöffnet wird

Frage von thomas1972Microsoft Office3 Kommentare

Hallo, ich habe da eine Frage, ich lege Dateien im Netzwerk ab, welche per Batch lokal verteilt wird. Nun ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 2 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 2 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 3 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement19 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android13 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...