Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Prüfen ob Ordner vorhanden
zurück: Export nach Excel dauert zu lange weiter: Access und Sharepoint Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
badman3
Gast


Verfasst am:
09. Feb 2012, 16:08
Rufname:

Prüfen ob Ordner vorhanden - Prüfen ob Ordner vorhanden

Nach oben
       Version: Office 2010

Hallo,

hoffe mal Ihr habt ne Idee.

Ich möchte eine Datei in einem Ordner speichern.
Der Ordner muss allerdings erstellt oder ggf geöffnet werden je nachdem ob vorhanden oder nicht.
Meine Datei heißt "123 Profil" und ist vortlaufend,mein Ordner in dem Fall "123".

Nun soll per Makro geprüft werden ob es denn Order "123" bereits gibt.
Falls nicht, soll der Ordner sertellt werden und die Datei in dem Ordner gespeichert werden.

Falls es den Ordner gibt, soll die Datei in dem Ordner gespeichert werden.

Den Ordner sertellen kann ich mit MkDir.

Allerdings weiß ich nicht wie ich auf das vorhanden sein des Ordners prüfen kann.

Könnt Ihr mir sagen wie?

mfg badman3
redround
Entwickler und ext. Datenschutzbeauftragter


Verfasst am:
09. Feb 2012, 16:13
Rufname:


AW: Prüfen ob Ordner vorhanden - AW: Prüfen ob Ordner vorhanden

Nach oben
       Version: Office 2010

entweder mit Dir() oder über das FileSystemObject (einfach mal danach suchen)
_________________
wenn Euch die Umsetzung der Lösung zu mühseelig ist, findet sich hier im Forum per PN bestimmt auch jemand, der das für einen geringen Obulus macht Smile
Trixihund
Gast


Verfasst am:
10. Feb 2012, 00:31
Rufname:

AW: Prüfen ob Ordner vorhanden - AW: Prüfen ob Ordner vorhanden

Nach oben
       Version: Office 2010

Hallo badman3,
Probiere es doch mal hiermit

Sub CheckIfFolderExists()
Dim fileSystemObj As NewScripting.FileSxstemObject
Dim sPath As String
sPath = "C:\123\"
If fileSystemObj.FolderExists(sPath) Then
MsgBox "Ordner ist vorhanden."
Else
MsgBox "Ordner ist nicht vorhanden."
fileSystemObj.CreateFolder sPath
End If
End Sub

Gruß
Trixihund
redround
Entwickler und ext. Datenschutzbeauftragter


Verfasst am:
10. Feb 2012, 10:35
Rufname:


Re: AW: Prüfen ob Ordner vorhanden - Re: AW: Prüfen ob Ordner vorhanden

Nach oben
       Version: Office 2010

Trixihund - 09. Feb 2012, 23:31 hat folgendes geschrieben:
Hallo badman3,
Probiere es doch mal hiermit

Sub CheckIfFolderExists()
Dim fileSystemObj As NewScripting.FileSxstemObject
Dim sPath As String
sPath = "C:\123\"
If fileSystemObj.FolderExists(sPath) Then
MsgBox "Ordner ist vorhanden."
Else
MsgBox "Ordner ist nicht vorhanden."
fileSystemObj.CreateFolder sPath
End If
End Sub

Gruß
Trixihund


mal abgesehen davon, dass der Code ein paar Tippfehler beinhaltet, müßte dazu auch noch ein Verweis auf die Scripting Runtime gesetzt werden. In solchen Fällen ist es meist besser. sog. Latebinding einzusetzen:
Code:

       Dim fileSystemObj As Object
       Set fileSysteObj = CreateObject("Scripting.FileSystemObject")

da man sich dabei den Verweis sparen kann und bei Versionswechsel keine Anpassungen notwendig sind.

Und noch eine Anmerkung: Wenn man schon eine ganze Prozedur baut, dann vielleicht besser eine, die man auch komplett ohne Anpassung weiterverwenden kann. Also etwa:
Code:

Public Function checkFolderExists(ByVal Folderpath As String) As Boolean
       Dim fileSystemObj As Object
       Set fileSysteObj = CreateObject("Scripting.FileSystemObject")

       checkFolderExists = fileSystemObj.FolderExists(Folderpath)

       Set fileSystemObj = Nothing
End Sub

_________________
wenn Euch die Umsetzung der Lösung zu mühseelig ist, findet sich hier im Forum per PN bestimmt auch jemand, der das für einen geringen Obulus macht Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: If funktion falls importtabelle nicht vorhanden. 3 DonMiguel 394 16. Apr 2010, 10:32
ebs17 If funktion falls importtabelle nicht vorhanden.
Keine neuen Beiträge Access Tabellen & Abfragen: qry Kriterium - wenn nicht vorhanden dann... 3 billyjp 706 10. März 2010, 23:17
MiLie qry Kriterium - wenn nicht vorhanden dann...
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden 1 paper2008 694 06. Feb 2010, 15:54
jens05 In Abfrage überprüfen, ob Feld aus Kreuzabfrage vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Ordner für Tabellen, Abfragen etc. 6 Kerstin83 958 19. Dez 2009, 23:51
MissPh! Ordner für Tabellen, Abfragen etc.
Keine neuen Beiträge Access Tabellen & Abfragen: Begrenzte Datensätze vorhanden 1 Elizaroth 287 05. Nov 2009, 17:49
Bitsqueezer Begrenzte Datensätze vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Verwalten von vielen Tabellen/Abfragen in Ordner? 5 paper2008 502 30. Apr 2009, 13:07
Willi Wipp Verwalten von vielen Tabellen/Abfragen in Ordner?
Keine neuen Beiträge Access Tabellen & Abfragen: Feldnamen ermitteln in den Wert vorhanden 2 patricka 382 06. März 2009, 11:30
KlausMz Feldnamen ermitteln in den Wert vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen einmal verschwunden, einmal vorhanden 2 boyfrawag 508 15. Dez 2008, 22:36
boyfrawag Tabellen einmal verschwunden, einmal vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Memofeld auf eintrag prüfen 2 Mella 86 811 12. Aug 2008, 09:14
Mella 86 Memofeld auf eintrag prüfen
Keine neuen Beiträge Access Tabellen & Abfragen: Art.Nr kontrolle ob schon vorhanden 1 Alexa21 483 31. Jul 2007, 21:45
stpimi Art.Nr kontrolle ob schon vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragekriterium nicht vorhanden 1 J.P. 503 02. Jul 2007, 23:54
Nouba Abfragekriterium nicht vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze einfügen die nicht Vorhanden sind 2 Gulsnick 1599 19. Apr 2007, 15:55
Thomas2007 Datensätze einfügen die nicht Vorhanden sind
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript