Hallo,
um mein Script fertig zu bekommen brauchte ich noch eine function die einen Teil eines Dateinamens erkennt und dann entsprechend die FixFoto functionen durchführt. Den vollständigen Dateinamen bekomme ich als String hin, nur dann kann ich die CharAt() nicht nutzen da ich kein Objekt habe. Gibts da irgendeinen Tipp wie man eine bestimmt Position eines Dateinames auslesen kann? Ich komme da einfach nicht weiter.
hier ein Auszug aus dem Script:
Function Rahmenwahl(name)
name = CStr(name)
name = name.CharAt(8)
If name = "0" Then
rahmen = "XXX.JPG"
Else
End If
End Function
Function Bilderoeffnen()
Dim f, fc, f1, s
Set f = fso.GetFolder("XXX")
Set fc = f.Files
For Each f1 in fc
Rahmenwahl(f1.name)
Bildbearbeiten(f1.name)
Next
End Function
MFG Chefkoch
um mein Script fertig zu bekommen brauchte ich noch eine function die einen Teil eines Dateinamens erkennt und dann entsprechend die FixFoto functionen durchführt. Den vollständigen Dateinamen bekomme ich als String hin, nur dann kann ich die CharAt() nicht nutzen da ich kein Objekt habe. Gibts da irgendeinen Tipp wie man eine bestimmt Position eines Dateinames auslesen kann? Ich komme da einfach nicht weiter.
hier ein Auszug aus dem Script:
Function Rahmenwahl(name)
name = CStr(name)
name = name.CharAt(8)
If name = "0" Then
rahmen = "XXX.JPG"
Else
End If
End Function
Function Bilderoeffnen()
Dim f, fc, f1, s
Set f = fso.GetFolder("XXX")
Set fc = f.Files
For Each f1 in fc
Rahmenwahl(f1.name)
Bildbearbeiten(f1.name)
Next
End Function
MFG Chefkoch