Hallo liebe Programmierer,
weiss nicht ob ich hier richtig bin - vielleicht seh ich nur den Wald vor lauter Bäumen nicht.
Problem:
Ich habe eine Access Datenbank mit 30000 Datensätzen. Jeder Datensatz hat eine von mir zugewiesene eindeutige Nummer (Fotosammlung) der Art „04 03 005 012“.
Jetzt sollen „Dummy“-.jpgs erstellt werden, die eben diese Nummer als Dateinamen haben (die Foto-Datenbank in die ich die Daten übernehmen will braucht ein .jpg - Bild um einen Datensatz anzulegen).
Ich stelle mir das so vor, dass ich eine Datei öffne und diese unter neuem Namen (der aus der Tabelle ausgelesen wird) abspeichere, dann unter dem nächten Namen aus der Tabelle wieder abpeichern und so fort.
Ist das mit Visual Basic möglich?
Ich kenn mich mit VB nicht aus - aber bevor ich 30000 Dateien per Hand umbenenne arbeite ich mich da lieber ein.
Oder soll ich mich lieber an eine andere Programmiersprache ranmachen?
Oder kennt jemand ein Programm, das so was machen kann?
Vielen Dank für Eure Mühe
Grüße,
Wolfgang
Hallo liebe Programmierer,
Hi,
sollen die JPGs echte Bilder sein, oder genügen dir auch Dummies mit Dateigröße=0 Byte?
Dim cna As New Connection
Dim rsa As New Recordset
cna.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & \_
"Jet OLEDB:smiley:atabase Password='';Mode=Share Deny None;" & \_
"Persist Security Info=False;Data Source = c:\deineDatenbank.mdb;"
cna.CursorLocation = adUseClient
rsa.ActiveConnection = AuftragsdetailsConn
rsa.Open "SELECT \* FROM deineTabelle", cna, adOpenDynamic, adLockPessimistic
While Not rsa.EOF
open "c:\" & rsa!FeldMitEindeutigerNr & ".jpg" for output as #1
close #1
rsa.MoveNext
Wend
Gruß.Timo
weiss nicht ob ich hier richtig bin - vielleicht seh ich nur
den Wald vor lauter Bäumen nicht.
Problem:
Ich habe eine Access Datenbank mit 30000 Datensätzen. Jeder
Datensatz hat eine von mir zugewiesene eindeutige Nummer
(Fotosammlung) der Art „04 03 005 012“.
Jetzt sollen „Dummy“-.jpgs erstellt werden, die eben diese
Nummer als Dateinamen haben (die Foto-Datenbank in die ich die
Daten übernehmen will braucht ein .jpg - Bild um einen
Datensatz anzulegen).
Ich stelle mir das so vor, dass ich eine Datei öffne und diese
unter neuem Namen (der aus der Tabelle ausgelesen wird)
abspeichere, dann unter dem nächten Namen aus der Tabelle
wieder abpeichern und so fort.
Ist das mit Visual Basic möglich?
Ich kenn mich mit VB nicht aus - aber bevor ich 30000 Dateien
per Hand umbenenne arbeite ich mich da lieber ein.
Oder soll ich mich lieber an eine andere Programmiersprache
ranmachen?
Oder kennt jemand ein Programm, das so was machen kann?
Vielen Dank für Eure Mühe
Grüße,
Wolfgang
Hallo Timo,
danke für die schnelle Antwort.
Ja stimmt. Es müssen gar keine „echten“ Bilder sein, das hab ich grad getestet.
Dein Script werde ich am Wochenende mal ausprobieren.
Vielen Dank für die Mühe
Grüße, Wolfgang
Hallo liebe Programmierer,
Hi,
sollen die JPGs echte Bilder sein, oder genügen dir auch
Dummies mit Dateigröße=0 Byte?
Dim cna As New Connection
Dim rsa As New Recordset
cna.Open „Provider=Microsoft.Jet.OLEDB.4.0;“ & _
„Jet OLEDB:smiley:atabase Password=’’;Mode=Share Deny
None;“ & _
„Persist Security Info=False;Data Source =
c:\deineDatenbank.mdb;“
cna.CursorLocation = adUseClient
rsa.ActiveConnection = AuftragsdetailsConn
rsa.Open „SELECT * FROM deineTabelle“, cna, adOpenDynamic,
adLockPessimistic
While Not rsa.EOF
open „c:“ & rsa!FeldMitEindeutigerNr & „.jpg“ for output as
#1
close #1
rsa.MoveNext
Wend
Gruß.Timo
mit ‚file-rename‘ gehts
Hallo Timo,
ich glaub, das mit dem VB-Programmieren lernen hebe ich mir für ne ruhigere Woche auf…
Ich dache ich kann dein Programm einfach in Access ausführen. Aber ich hab nicht mal die Fehlermeldungen verstanden 
Aber dank deiner Anregung hab ich anscheinend in Google die richtigen Worte gefunden: Genau mein Problem hat schon jemand in Excel gelöst. Musste nur halt vorher die Anzahl der Dateien mit ein paar mal kopieren - einfügen erzeugen.
Falls es interessiert: http://www.mmsoft.ch/pages/filerenamepag.html
Vielen Dank und Grüße,
Wolfgang