Hjælp så er i flinke ;o)
har nogle filer som ligger på et webhotel som ligger på d:\\webs\\friserverplads.dk\\ kan i finde ud af at rette det i nedenstående formel så det passer med hvor de ligger???sub scan_dirs {
# Scanner dirs for alle filer rekursivt.
$startdir = \"$config{\'root_dir\'}/\";
$startdir =~ s/\\\\\\\\/\\\\/; # ændrer \\\\ til \\
$startdir =~ s/\\//\\\\/;
$startdir = $startdir.\'\\\\\';
@args = (\"DIR\", \"$startdir\\\\$in{\'username\'}\", \"/s 1>$startdir\\\\dirlist.txt\"); # gem filen i roden
system(@args) == 0 or die \"system @args failed: $?\";
# Indlæs dirlist.txt og find ud af hvad der er af filer alt i alt...
open (dirlist, \"<\".$config{\'root_dir\'}.\"\\\\dirlist.txt\");
@indhold = <dirlist>;
close(dirlist);
# Scan igennem alle linierne, og find ud af hvor meget plads der er brugt.
$hvorbytes = $#indhold - 1; # Finder antal linier i dirlisten
@ab = split(\' \',$indhold[$hvorbytes]);
$bytes = $ab[2];
$bytes =~ s/\\.//; # over 1.000
$bytes =~ s/\\.//; # over 1.000.000
$bytes =~ s/\\.//; # over 1.000.000.000
}
Håber i kan hjælpe ;o)
MVH
Kasper Sand Sørensen
