Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateinamen ?ndern

AW: Dateinamen ?ndern
05.08.2004 21:53:36
Nepumuk
Hallo Jan Ali,
so geht's:


Public Sub Zeit_aendern()
    Dim myFSO As Object, MyFile As Object, strTime As String, datTime As Date
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
        strTime = Mid$(MyFile.Name, 8, 6)
        datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2)) - TimeSerial(1, 22, 0)
        MyFile.Name = Left$(MyFile.Name, 7) & Format(datTime, "hhmmss") & Right$(MyFile.Name, 13)
    Next
    Set myFSO = Nothing
End Sub


Gru?
Nepumuk

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen ?ndern
OttoH
Hallo Nepumuk,
wie immer eine geniale L?sung; Kompliment.
Was aber ist mit den Beweisfotos die zwischen 0:00 und 1:22 gemacht wurden; die werden m.E. einen Tag zu sp?t datiert, da das Tagesdatum nicht zur?ckgeschraubt wird.
Gru? OttoH


AW: Dateinamen ?ndern
Jan
Hi Nepumuk,
werde es am Wochenende mal ausprobieren, Dir schon jetzt ein riesiges Dankesch?n. OttoH hat nat?rlich recht, aber ich will hier ja keinen ?berstrapazieren, die Tages?nderung kriege ich uach mit dem "Joe 3.1" hin, hier geht's ja insgesamt nur um 2 Tage.
Thanx, Jan Ali
AW: Dateinamen ?ndern
06.08.2004 00:02:33
Nepumuk
Hallo Otto,
zu dieser Zeit ist ein anst?ndiger Mensch schon im Bett, damit er ausgeruht um 05:30 Uhr morgens, die offenen Fragen vom Vortag im Forum beantworten kann. :-)
Du h?ttest mich jetzt fast in eine Bredouille gebracht. Rechnen mit Stunden ist gar nicht so einfach in VB. Aber so geht's:


Public Sub Zeit_aendern()
    Dim myFSO As Object, MyFile As Object
    Dim strTime As String, datTime As Date, strDate As String, datDate As Date
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
        strDate = Left$(MyFile.Name, 6)
        strTime = Mid$(MyFile.Name, 8, 6)
        datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2))
        If datTime <= TimeSerial(1, 22, 0) Then
            datDate = CDate(Right$(strDate, 2) & "." & Mid$(strDate, 3, 2) & ".20" & Left$(strDate, 2))
            datDate = datDate - 1
            strDate = Format(datDate, "yymmdd")
            strTime = Format(TimeSerial(22, 38, 0) + datTime, "hhmmss")
        Else
            datTime = datTime - TimeSerial(1, 22, 0)
            strTime = Format(datTime, "hhmmss")
        End If
        MyFile.Name = strDate & Mid$(MyFile.Name, 7, 1) & strTime & Right$(MyFile.Name, 13)
    Next
    Set myFSO = Nothing
End Sub


Gru?
Nepumuk
Anzeige
AW: Dateinamen ?ndern
05.08.2004 21:53:36
Nepumuk
Hallo Jan Ali,
so geht's:


Public Sub Zeit_aendern()
    Dim myFSO As Object, MyFile As Object, strTime As String, datTime As Date
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
        strTime = Mid$(MyFile.Name, 8, 6)
        datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2)) - TimeSerial(1, 22, 0)
        MyFile.Name = Left$(MyFile.Name, 7) & Format(datTime, "hhmmss") & Right$(MyFile.Name, 13)
    Next
    Set myFSO = Nothing
End Sub


Gru?
Nepumuk
Anzeige
AW: Dateinamen ?ndern
OttoH
Hallo Nepumuk,
wie immer eine geniale L?sung; Kompliment.
Was aber ist mit den Beweisfotos die zwischen 0:00 und 1:22 gemacht wurden; die werden m.E. einen Tag zu sp?t datiert, da das Tagesdatum nicht zur?ckgeschraubt wird.
Gru? OttoH


AW: Dateinamen ?ndern
Jan
Hi Nepumuk,
werde es am Wochenende mal ausprobieren, Dir schon jetzt ein riesiges Dankesch?n. OttoH hat nat?rlich recht, aber ich will hier ja keinen ?berstrapazieren, die Tages?nderung kriege ich uach mit dem "Joe 3.1" hin, hier geht's ja insgesamt nur um 2 Tage.
Thanx, Jan Ali
AW: Dateinamen ?ndern
06.08.2004 00:02:33
Nepumuk
Hallo Otto,
zu dieser Zeit ist ein anst?ndiger Mensch schon im Bett, damit er ausgeruht um 05:30 Uhr morgens, die offenen Fragen vom Vortag im Forum beantworten kann. :-)
Du h?ttest mich jetzt fast in eine Bredouille gebracht. Rechnen mit Stunden ist gar nicht so einfach in VB. Aber so geht's:


Public Sub Zeit_aendern()
    Dim myFSO As Object, MyFile As Object
    Dim strTime As String, datTime As Date, strDate As String, datDate As Date
    Set myFSO = CreateObject("Scripting.FileSystemObject")
    For Each MyFile In myFSO.GetFolder("D:\Eigene Dateien\Testordner").Files 'hier Ordnername anpassen !!
        strDate = Left$(MyFile.Name, 6)
        strTime = Mid$(MyFile.Name, 8, 6)
        datTime = CDate(Left$(strTime, 2) & ":" & Mid$(strTime, 3, 2) & ":" & Right$(strTime, 2))
        If datTime <= TimeSerial(1, 22, 0) Then
            datDate = CDate(Right$(strDate, 2) & "." & Mid$(strDate, 3, 2) & ".20" & Left$(strDate, 2))
            datDate = datDate - 1
            strDate = Format(datDate, "yymmdd")
            strTime = Format(TimeSerial(22, 38, 0) + datTime, "hhmmss")
        Else
            datTime = datTime - TimeSerial(1, 22, 0)
            strTime = Format(datTime, "hhmmss")
        End If
        MyFile.Name = strDate & Mid$(MyFile.Name, 7, 1) & strTime & Right$(MyFile.Name, 13)
    Next
    Set myFSO = Nothing
End Sub


Gru?
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige