Visa antalet bytes av en mapp?

Kan man med hjälp av Visual Basic visa hur många bytes en mapps innehåll har, medräknat undermappar?

Ja.

Det är bara att använda filesystemobject och göra en rekursiv funktion för att kolla en mapps storlek.

Lite tips: http://www.virtualsplat.com/tips/visual-basic-fso.asp

Jag har det nästan att fungera! Problemet är med raden 19, fet stil.
Jag får följande felmeddelande.

C:\Hemsida\backup\info.vbs(19, 1) Microsoft VBScript runtime error: Invalid proc
edure call or argument

Kan nån hjälpa mig?

set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("c:\Hemsida\backup")

dim showdate

ShowFolderDetails oFolder

sub ShowFolderDetails(oF)
wscript.echo oF.Name & ":Size=" & oF.Size
end sub

showdate = FormatDateTime(Now(),2)

showpath = "\\192.168.11.38\Backup\backup_" & showdate

wscript.echo showpath

set oFS2 = WScript.CreateObject("Scripting.FileSystemObject")
[B]set oFolder2 = oFS2.GetFolder(wscript.echo (showpath))[/B]
wscript.echo oFolder2

ShowFolderDetails2 oFolder2

sub ShowFolderDetails2(oF)
wscript.echo oF.Name & ":Size=" & oF.Size
end sub

Varför har du wscript.echo med i den raden? Sökvägen ligger ju i variabeln showpath.

set oFolder2 = oFS2.GetFolder(showpath)

Hur får jag infon med wscript.echo skriven till en text fil?

set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("c:\Hemsida\backup")

ShowFolderDetails oFolder
 
sub ShowFolderDetails(oF)
wscript.echo oF.Name & ":Size=" & oF.Size
end sub

Eftersom det var så länge sedan jag pysslade med VB6 så var jag tvungen att googla lite åt dig. :)

Kolla här t.ex: http://www.martin2k.co.uk/vb6/posts/vb6post159.php

mvh