meta data for this page
  •  

Speichern

Beispiel für das Speichern des aktuellen Bildes mit dem Befehl FF_SaveImage:

  1. Option Explicit
  2. Dim bild,quality
  3.  
  4. bild = "D:\Eigene Dateien\PICT0152_ff.JPG" 'beipielhaft
  5. quality = 0
  6.  
  7. FF_SaveImage bild,quality

Erläuterung zur quality aus der Hilfe:
Die quality (JPEG-Qualität) lässt sich von 1-100 einstellen; 0 entspricht der FixFoto-Einstellung.

Ist das Dateiformat TIF und quality=0, dann wird die LZW-Komprimierung verwendet;
Ist quality ungleich 0, dann wird das TIF unkomprimiert gespeichert.


Ist das Bild bereits vorhanden, wird dieses ohne Rückfrage mit dem aktuellen Bild überschrieben.
Es ist daher sinnvoll, dies vor dem Speichern zu prüfen und
- man lässt vorhandene Bilder aus

  1. Option Explicit
  2. Dim bild,quality
  3.  
  4. Dim objFS
  5. Set objFS = CreateObject("Scripting.FileSystemObject")
  6.  
  7. bild = "D:\Eigene Dateien\PICT0152_ff.JPG" 'beispielhaft
  8. quality = 0
  9.  
  10. if not objFS.FileExists(bild) then FF_SaveImage bild,quality
  11. - oder man fragt jedes mal nach, ob das vorhandene Bild überschrieben werden soll.\\
  12. Option Explicit
  13. Dim bild,quality,antwort
  14.  
  15. Dim objFS
  16. Set objFS = CreateObject("Scripting.FileSystemObject")
  17.  
  18. bild = "D:\Eigene Dateien\PICT0153_ff.JPG" 'beispielhaft
  19. quality = 0
  20.  
  21. if objFS.FileExists(bild) then
  22. antwort = msgbox("Das Bild " & objFS.GetFileName(bild) & " ist bereits vorhanden." & vbNewLine & vbNewLine & _
  23. "Soll es überschrieben werden?",vbQuestion or vbYesNo,"Sicherheitsabfrage")
  24. if antwort = vbYes then FF_SaveImage bild,quality
  25. else
  26. FF_SaveImage bild,quality
  27. end if

Wenn viele Bilder in einer Schleife bearbeitet und gespeichert werden, kann die Nachfrage, ob ein vorhandenes Bild überschrieben werden soll, sehr lästig sein. Es bietet sich dann an, vorhandene Bilder zu nummerieren mit (1), (2) usw.

  1. Option Explicit
  2. Dim bild,quality,antwort,ordner,name,extension,n
  3.  
  4. Dim objFS
  5. Set objFS = CreateObject("Scripting.FileSystemObject")
  6.  
  7. bild = "D:\Eigene Dateien\PICT0153_ff.JPG"
  8. quality = 0
  9.  
  10. '### vorhandene Bilder nummerieren mit (1), (2) usw.
  11. if objFS.FileExists(bild) then
  12. ordner = objFS.GetParentFolderName(bild) & "\"
  13. name = ordner & objFS.GetBaseName(bild)
  14. extension = "." & objFS.GetExtensionName(bild)
  15. n = 1
  16.  
  17. do
  18. if not objFS.FileExists(name & "(" & n & ")" & extension) then exit do
  19. n = n + 1
  20. loop
  21. bild = name & "(" & n & ")" & extension
  22. end if
  23.  
  24. '### Speichern
  25. FF_SaveImage bild,quality

So wird sicher vermieden, dass vorhandene Bilder überschrieben werden.