Sander Tuulik AK41: Difference between revisions

From ICO wiki
Jump to navigationJump to search
Stuulik (talk | contribs)
Stuulik (talk | contribs)
Line 10: Line 10:




# Kasutajalt sisendi küsimine
$kaust = $args[0]
$kaust = $args[0]
if (! $kaust) {
if (! $kaust) {
Write-Host
Write-Host
# Sisendi lugemine
$kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?"
$kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?"
}
}
Line 18: Line 20:
$Dir = get-childitem $kaust -recurse  
$Dir = get-childitem $kaust -recurse  
$List = $Dir  
$List = $Dir  
# Eemaldan unikaalsed nimed
$dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group}  
$dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group}  
echo ""
echo ""
if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"}
if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"}
$dir1 | format-table -a fullname
# Väljundi formaadi muutmine
$dir1 | format-table -a fullname  
</source>
</source>

Revision as of 10:00, 28 January 2011

Ülessanne

Loo skript, mis leiab etteantud kataloogist või kettalt samanimelised failid ja väljastab nende nimekirja.

Skript

# Skript,mis otsib ettemääratud katalogist samanimelised failid ja väljastab nimekirja
# Kasutajalt küsitakse,kus kataloogist otsida


# Kasutajalt sisendi küsimine
$kaust = $args[0]
if (! $kaust) {
Write-Host
# Sisendi lugemine
$kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?"
}
Write-Host "Samanimelisi faile otsiti kataloogist: $kaust"
$Dir = get-childitem $kaust -recurse 
$List = $Dir 
# Eemaldan unikaalsed nimed
$dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group} 
echo ""
if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"}
# Väljundi formaadi muutmine
$dir1 | format-table -a fullname