MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Office - Allgemein
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 26.01.2017, 10:57   #1
Powerhouse
MOF User
MOF User
Standard Off2010 - Auslesen Dateinamen aus Serverpfad

Ich sollte per VBA die Dateinamen aus einen Serverpfad auslesen (inkl. Unterverzeichnisse, also rekursiv).

Ich habe herumgesucht, wie man das mit den "normalen" Dateinamen macht (z. B. C:\Windows) habe ich gefunden, aber ich sollte auf ein Verzeichnis in dieser Form zugreifen:

\\Servername\Vorlagen


gibt es da eine Möglichkeit diese z. B. in eine Exceltabelle auszulisten?

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.01.2017, 19:07   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Warum nicht Excel Forum?
http://hajo-excel.de/chCounter3/getfile.php?id=21

GrußformelHomepage

__________________

Signatur in jedem Beitrag
In diesem Forum, kann der Beitrag als gelöst gekennzeichnet werde (unten Links). Bitte macht dies. Damit es auch in der Forumsübersicht gekennzeichnet ist.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.01.2017, 06:29   #3
Powerhouse
Threadstarter Threadstarter
MOF User
MOF User
Standard

Naja, weil der Zugriff von VBA aus auf die Serververzeichnisse auch in Word, Access etc. auch benötigt werden könnte.

Ich habe ja das Auslesen ins Excel nur als Beispiel angeführt.

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.01.2017, 06:42   #4
Powerhouse
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Hajo,
diese Lösung hat mir nicht weitergeholfen.
Die Verzeichnisse auslesen kann ich bereits, wenn ich einen Laufwerksbuchstaben habe (z. B. K, ich sollte aber direkt auf ein Verzeichnis auf einem Server zugreifen. (Siehe fett geschriebenen Teil meines Anfrageposts.)

Ich habe zum Testen mich damit beholfen, mit dem Subst-Befehl dem Server einen Laufwerksbuchstaben zuzuteilen. Das Problem ist aber, dass ich zwar bei mir weiß welche Netzlaufwerke noch nicht vergeben sind, bei anderen Usern aber nicht. Darum wollte ich wissen, ob es möglich ist, auf Verzeichnisse über den Servernamen zuzugreifen.

Danke trotzdem für deine Bemühungen.

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.02.2017, 16:36   #5
Likunduel
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,
das "Problem" mit Office und FTP Programme habe ich auch. Aber es ist schnell lösbar.
Du kannst bestimmt den Serverpfad in Windows Explorer (Dateimanagement) öffnen. Dort kannst du den Pfad von Adresse-Leiste kopieren und dann in Office angeben. Das Problem habe ich bei Microsoft Office 2010, 2013 gelöst. Ich habe kein Office 2016 oder 365. Dafür weiß ich nicht. Aber soll es theoretisch gleich sein.
Likunduel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.02.2017, 09:45   #6
Likunduel
Neuer Benutzer
Neuer Benutzer
Standard

Ich habe mal mit einem Notebook Office 2016 getestet. Unser NAS Server ist bei "Durchsuchen" sichtbar.
Likunduel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.02.2017, 13:24   #7
Powerhouse
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Likunduel,

ich glaube du hast übersehen, dass ich den Servernamen in einem VBA Makro verwenden sollte um den Inhalt eines Verzeichnisses auszulesen bzw. um auf eine Datei in diesem Verzeichnis zuzugreifen.

Zum besseren Verständnis habe ich eine Beispieldatei angehängt. Es ist zwar eine Exceldatei, aber das Problem tritt auch bei Word-VBA-Makros auf (darum ist dieser Thread nicht unter Excel eingereiht).

Ich kann es zwar über dem Umweg des Subst-Befehls lösen, da ich aber nicht weiß, welche Laufwerksbuchstaben bei anderen Rechnern vergeben sind, ist das nicht die ideale Lösung.
Angehängte Dateien
Dateityp: xlsm Test1.xlsm (27,9 KB, 0x aufgerufen)

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.03.2017, 10:45   #8
Powerhouse
Threadstarter Threadstarter
MOF User
MOF User
Standard

Vielleicht hilft eine Neuformulierung meiner Anfrage weiter.

Ich sollte per VBA die Dateinamen aus einen UNC-Pfad auslesen (inkl. Unterverzeichnisse, also rekursiv).

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.03.2017, 10:38   #9
Powerhouse
Threadstarter Threadstarter
MOF User
MOF User
Standard

Man muss nur wissen, wie man die Frage bzw. den Suchbegriff richtig formuliert!

Mir ist einfach der Begriff UNC-Pfad ums verr.... nicht eingefallen!

Jedenfalls habe ich inzwischen die Lösung gefunden.
Ist auch noch aus einem anderen Grund interessant, weil es einen rekursiven Lesezugriff beinhaltet.

Hier der Codeschnipsel:

Code:

Public Sub UNC_Dateien_auslisten(Pfad As String)
' Microsoft Scripting Runtime wird als Verweis benötigt!

Dim FSO As FileSystemObject
Dim Dirloop As Folder
Dim Subfolder As Folder
Dim Datei As Variant
Dim Zeile As Long

   On Error GoTo ErrorHandler
   
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set Dirloop = FSO.GetFolder(Pfad)

' Rekursiver Aufruf der Verzeichnisse
   For Each Subfolder In Dirloop.Subfolders
      UNC_Dateien_auslisten (Subfolder.Path)                                ' rekursiver Aufruf !!!!!!!!!
   Next

   Zeile = 2
   Do Until IsEmpty(ActiveWorkbook.ActiveSheet.Cells(Zeile, 2))
' Bereits vergebene Zeile werden übersprungen
      Zeile = Zeile + 1
   Loop
   For Each Datei In Dirloop.Files
      ActiveWorkbook.ActiveSheet.Cells(Zeile, 2) = Mid(Datei, InStrRev(Datei, "") + 1)
      ActiveWorkbook.ActiveSheet.Cells(Zeile, 1) = Replace(Replace(Datei, ActiveWorkbook.ActiveSheet.Cells(Zeile, 2), ""), "Y:", Pfad)
      Zeile = Zeile + 1
   Next
   Exit Sub
   
ErrorHandler:
   Select Case Err.Number
      
      Case Else
         If MsgBox(Err.Number & " / " & Err.Description & Chr(13) & Chr(10) & "Trotzdem fortsetzen?", 276, "Fehler") = vbYes Then
'            Resume Wiederaufnahme
            Resume Next
         Else
            Exit Sub
         End If
    End Select
    Resume
End Sub

__________________

Powerhouse

Windows 7 und XP SP3®; Office XP und 2010®; MS Exchange Server®;
Powerhouse ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:22 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.