MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 25.05.2016, 16:05   #1
Ibico
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Dateien mit VBA aus Verzeichnis auslesen

Hallo zusammen

Wie ich die Dateinamen aus einem Verzeichnis auslesen kann, das habe ich geschafft, ich habe aber folgendes Problem.

Es sind im Verzeichnis 2 xml-Dateien, die sich lediglich darin unterschieden, dass die eine mit Zeichen.xml endet und die zweite mit Ziffern.xml

Beispiel:
4970_signatureCheckResult.xml
4970.xml

Die erste Datei kann ich ohne weiteres auslesen und einer Variablen zuordnen, die zweite wird von meinem Code ignoriert, bzw habe ich es einfach nicht geschafft, wie ich dem Code beibringen kann, dass er die 4970.xml Datei in eine Variable lesen soll.

Mein VBA Code:

Private Sub FileRead_Click()

Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder("C:\Test")

For Each File In Folder.Files

If Right(File, 24) = "signatureCheckResult.xml" Then
Filename1 = Mid(File, 63)
End If


If Right(File, 8) = "####.xml" Then
Filename2 = Mid(File, 63)
End If

Next

End Sub


Kann mir jemand helfen?
Herzlichen Dank
Ibico ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.05.2016, 18:08   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

vermutlich ist 4970.xml ungleich ####.xml. Da solltest Du nachbessern.

In diesem Teil des Forums werden Fragen zu traditionellem Visual Basic bis zur Version 6.0 behandelt, aber nicht zu Office-VBA oder Scripting, auch wenn deren Code recht ähnlich sein kann.

__________________

Hang loose, haklesoft
haklesoft ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.05.2016, 06:45   #3
Ibico
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Haklesoft

eine Vermutung war richtig.

Ich habe den Code dahingeändert, dass ich
die Zeile von gleich (=) auf Like geändert habe.
und siehe da es funktioniert nun tadellose


If Right(File, 8) ="####.xml" Then

Filename3 = Mid(File, 63)

End If

If Right(File, 8) Like "####.xml" Then

Filename3 = Mid(File, 63)

End If

Recht herzlichen Dank für Deine Unterstützung.

Ich möchte mich auch entschuldigen, dass ich mit meinem Anliegen im falschen Forum angefragt habe. Ich werde mich zusasmmennehmen, damit ich das nächste mal im korrekten Forum drin bin.

Gruss Ibico

Zitat: von haklesoft Beitrag anzeigen

Hallo,

vermutlich ist 4970.xml ungleich ####.xml. Da solltest Du nachbessern.

In diesem Teil des Forums werden Fragen zu traditionellem Visual Basic bis zur Version 6.0 behandelt, aber nicht zu Office-VBA oder Scripting, auch wenn deren Code recht ähnlich sein kann.

Ibico 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 17:56 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 - 2018, Jelsoft Enterprises Ltd.

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