VIelleicht kann mir hier jemand Helfen. Ich habe ein Excelsheet erstellt, wo die Homelaufwerke sämtlicher User eingetragen sind. Nun brauchen wir immer mal wieder eine Auswertung mit folgenden Daten:
- Orderngrösse des Benutzers auf dem Share
- Letzter Zugriff auf diesen Ordner
Das automatische Auslesen (mit der Varibale UNC-Pfad des Homelaufwerkes aus der Exceltabelle) klappt - Und es wird mir die korrekte Gesamtgrösse in die zugehörige Spalte eingetragen.
Nur das mit dem letzten Zugriff klappt nicht. Ich bin in VBA überhaupt nicht so Fit und hoffe es kann mir hier jemand Helfen :\
Hier der bisherige Code, welcher klappt:
Public Sub Log(strLog As String)
Dim strFile As String, strMeld$
Dim f As Integer
strFile = DBPfad & "C:\Temp\Userhome-Migration-Errors.txt"
strMeld = Format(Now, "yyyy.mm.dd") & ";" & strLog
f = FreeFile
Open strFile For Append As #f
Print #1, strMeld
Close #f
End Sub
Function fileSizeinMB(path$)Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim dir, v
If fs.FolderExists(path) Then
Set dir = fs.GetFolder(path)
fileSizeinMB = dir.Size / 1024 / 1024
End If
End Function Sub FileSize()
Dim Zelle
On Error GoTo Ende:
For Each Zelle In Selection.Cells
Cells(Zelle.Row, "F").Value = fileSizeinMB(Cells(Zelle.Row, "E").Value)
Next
Exit Sub
Ende:
' MsgBox (Cells(Zelle.Row, "D").Value)
Log (Cells(Zelle.Row, "A").Value) & ";" & (Cells(Zelle.Row, "G").Value) & ";" & (Cells(Zelle.Row, "H").Value) & ";" & (Cells(Zelle.Row, "E").Value) & ";" & (Cells(Zelle.Row, "I").Value)
Resume Next
End Sub