|
| |
Visual-Basic Einsteiger| Re: aktuelles Verzeichnis auslesen und darin befindliche Dateinamen ändern | |  | | Autor: Clondike | | Datum: 20.02.12 17:40 |
| Hallo Zardoz,
Super, hast mir sehr geholfen,
mit einigen Nachkorrekturen funktioniert das "Werkl" wie ich es benötige.
Vielen Dank:
Zur Info den jetzigen Code:
Private Sub F_konvert_Click()
'--Variablen für Verzeichnis / Dateiauswahl declarieren -------------------------------------------
Dim strDatei_alt As String
Dim strDatei_neu As String
Dim pfad_aktuell As String
Dim pfad_neu As String
Dim pfad_copy As String
Dim z As Integer
Dim inhalt As String
'-- Fehlerroutine festlegen -----------------------------------------------------------------------
On Error GoTo Fehlerbehandlung
'--Pfad festlegen ---------------------------------------------------------------------------------
pfad_aktuell = CurrentDb.Name
While Right$(pfad_aktuell, 1) <> "\"
pfad_aktuell = Left$(pfad_aktuell, Len(pfad_aktuell) - 1)
Wend
'---- hier das gewünschte Verzeichnis zum auslesen der Dateien angeben ----------------------------
strDatei_alt = Dir(pfad_aktuell)
'---- Dateien auslesen, trennen und neu zusammenstellen -------------------------------------------
While strDatei_alt <> ""
z = 1
strDatei_neu = ""
pfad_neu = ""
'---- Erster Teil bis zum Underline von der Datei trennen -----------------------------------------
If Right(strDatei_alt, 5) <> "accdb" Then
inhalt = Mid$(strDatei_alt, z, 1)
While inhalt <> "_"
z = z + 1
inhalt = Mid$(strDatei_alt, z, 1)
Wend
'---- Zweiter Teil vom 1. Underline bis zum 2.Underline -------------------------------------------
'---- als neues Verzeichnis auslesen und wenn nicht vorhanden, erstellen---------------------------
If inhalt = "_" Then inhalt = ""
While inhalt <> "_"
z = z + 1
inhalt = Mid$(strDatei_alt, z, 1)
If inhalt <> "_" Then
pfad_neu = pfad_neu & inhalt
End If
Wend
If pfad_neu <> "" Then
pfad_neu = pfad_aktuell & pfad_neu
MkDir pfad_neu
End If
'---- Datei (2. Teil des Dateinamens) erstellen und in das Verzeichnis kopieren -------------------
If inhalt = "_" Then inhalt = " "
While inhalt <> ""
z = z + 1
inhalt = Mid$(strDatei_alt, z, 1)
strDatei_neu = strDatei_neu & inhalt
Wend
pfad_source = pfad_aktuell & strDatei_alt
pfad_neu = pfad_neu & "\" & strDatei_neu
FileCopy pfad_source, pfad_neu
End If
strDatei_alt = Dir
Wend
'---------------------------------------------------------------------------------------------------
Ende:
Exit Sub
'---------------------------------------------------------------------------------------------------
Fehlerbehandlung:
If Err.Number = 75 Then
Resume Next
Else
Resume 0
End If
GoTo Ende
End Sub
Hallo -
bin neu hier und habe ein massives Problem mit bedingter Formatierung, die mehr als 4 Werte abfragen soll. Bin ein guter VBA Anwender, habe aber bis jetzt noch keine M?glichkeit gef?nden, das Problem zu l?sen.
Beispiel:
Wenn Code = Nk, d | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
