Datum Monat 2 Stellen
12.11.2008 15:05:30
chris
ich habe eine frage.Würde mich sehr über Hilfe freuen.
Ich habe einen Code den ich unten mal einstelle.dieser Code sucht im Explorer nach bestimmten Dateien bzw. soll er noch.
Jetzt hänge ich bei einem Problem das ich schön öfter mal hatte und nicht mehr weiß wie man sowas sauber löst.
Das ergebniss von Month (frm_history.cbo_datum_von)
ist in den ersten 9 Monaten immer eine zahl von 1 - 9 und diese 1 stellig.Ich bräuchte sie aber für meine suche 2 stellig.z.b für Monat januar wird mir 1 angezeigt aber ich benötige 01
Monat 2 Februar ich benötige 02
Das ganze als String zu deklarieren geht ja auch nicht weil ich dann hier schwierigkeiten bekomme:
.Filename = "*" & frm_history.tb_computername & "*" & "2008" & Month(frm_history.cbo_datum_von)
Option Explicit
Sub suche()
Dim x
Dim Monat
With Application.FileSearch
.NewSearch
.LookIn = Pfad_history
MsgBox Len(Month(frm_history.cbo_datum_von))
MsgBox Month(frm_history.cbo_datum_von)
If Len(Month(frm_history.cbo_datum_von))
Vielen dank für eure Hilfe.
Werde Die Antwrten erst morgen lesen und dazu Feedback geben.
gruß Chris