hallo,
ich würde gerne von Dateien, die mehrere GB groß sind die Dateigröße ermitteln und dann, wenn die Größe einen bestimmten Wert überschreitet, verschieben.
Ich habe gelesen dass man API dafür nutzen muss. Leider kenne ich mich mit API überhaupt nicht aus...
Muss ich dafür irgendetwas installieren?
hier mein Versuch:
Sub r()
Dim A As APIFile
Dim FSize As Double
Dim pfad_VerzA As String, pfad_VerzB As String
Dim fs As Object
Dim fDatei As Object
Dim fDateien As Object
Dim fVerzA As Object
pfad_VerzA = "D:\testfilme"
pfad_VerzB = "D:\filmepassend"
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerzA = fs.getFolder(pfad_VerzA)
Set fDateien = fVerzA.Files
For Each fDatei In fDateien
A.openfile (pfad_VerzA)
FSize = A.FileSizeDouble
Debug.Print FSize
A.CloseFile
If FSize > 2048 Then Name pfad_VerzA & "\" & fDatei.Name As pfad_VerzB & "\" & fDatei.Name
Next fDatei
End Sub
Vielen dank für die Hilfe im Voraus!!
Gruß, Jörg
|