SIMATIC HMI Miniweb on HMI_Panel

[Georgyboy]

Goeiedag,

Hier heb ik een voorbeeld
dit ter info wat voor mij lukt, hopelijk slaag ik erin jullie info en tips te kunnen gebruiken.

Hier heb ik een voorbeeld van alle files van 1 maand naar 1 totaal file.
dit kan ik op deze manier via opdrachtprompt.

daarvoor gebruik ik "pushd" als commando omdat deze files op het bureaublad staan.
via de commando "cd" lukt het ook als de bestanden op de "C:" schijf staan.

Alvast bedankt!

 

[alphamax]

Nieuwe code, want eerst had je een -/min tussen de datums, en nu een _/underscore.
Daarom werkte de code niet

Public Sub DownloadToFolderWeek()
    sFolderTo = "C:\Users\Name\Documents\Siemens" 'aanpassen

    sFolderFrom = Environ("USERPROFILE") & "\Downloads"
    aFilesFrom = Split(CreateObject("WScript.Shell").Exec("cmd /c dir """ & sFolderFrom & "\Alco_Datalog_*?_*?_20??.csv"" /B").StdOut.ReadAll, vbCrLf)

    For i = LBound(aFilesFrom) To UBound(aFilesFrom) - 1
        sFileFrom = aFilesFrom(i)
        aFileFrom = Split(Split(sFileFrom, ".")(0), "_")
        vWeek = DateSerial(Val(aFileFrom(4)), Val(aFileFrom(3)), Val(aFileFrom(2)))
        sFolderWeekTo = sFolderTo & "\" & Format(vWeek, "yyyy\Www", vbMonday, vbFirstFourDays)
        If Dir(sFolderWeekTo, vbDirectory) = vbNullString Then
            MkDir sFolderWeekTo
        End If
        FileCopy sFolderFrom & "\" & sFileFrom, sFolderWeekTo & "\" & sFileFrom
    Next

End Sub

 

[Georgyboy]

Top !

Goedemorgen,
De code loopt als een trein alphamax, sta versteld hoe snel en goed dit gaat.
Dankjewel voor je kennis, tijd en geduld.:thumb:

 

[Georgyboy]

Goedemorgen,

Wellicht kan onderstaande ook via jouw goed werkende code? of niet ?


via opdrachtprompt kan ik nu per week 1 weektotaal maken.

Microsoft Windows [Version 10.0.xxxx.xxxxx]
(c) Microsoft Corporation. Alle rechten voorbehouden.

C:\Users\georges>cd C:\Nieuwe map\2020W44

C:\Nieuwe map\2020W44>copy *.csv week44.csv
Alco_DataLog_1_11_2020.csv
Alco_DataLog_26_10_2020.csv
Alco_DataLog_27_10_2020.csv
Alco_DataLog_28_10_2020.csv
Alco_DataLog_29_10_2020.csv
Alco_DataLog_30_10_2020.csv
Alco_DataLog_31_10_2020.csv
        1 file(s) copied.

C:\Nieuwe map\2020W44>

van dit weektotaal moet ik dan de kopteksten en lege rijen verwijderen.
Code achter het blad:

Sub M_snb()
  With Blad1.UsedRange
    .Offset(1).Columns(1).Replace "Datum / Uhrzeit", ""
    .Columns(1).SpecialCells(4).EntireRow.Delete
  End With
End Sub

Is dit nog mogelijk om aan te passen?

Alvast bedankt !
Voor mij nu al méér dan Top !

Groeten,
Georgyboy