güzel avatar hiper :)
bu html sayfası eps ve tif dosyalarını tanıdığını iddia ediyor bir dene belgi işine yarar:
<HTML>
<HEAD>
<TITLE></TITLE>
<META NAME="GENERATOR" Content="Microsoft Visual Studio">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
<script language=vbscript>
<!--
'id=clientEventHandlersVBS
public deglistesi
sub degistir_click
dim fso,dosyaismi
set fso=createobject("Scripting.FileSystemObject")
for each secenek in degliste.options.all
set dosyaismi=fso.getfile(secenek.innertext)
dosyaismi.name=dosyaismi.name+"."+uzanti.value
next
set fso=nothing
set dosyaismi=nothing
dosyalistesial klasoradi.value
selami4.innerhtml=""
end sub
sub liste_temizle
selami3.innerhtml=""
selami4.innerhtml=""
deglistesi=""
end sub
sub degliste_click
end sub
sub ekle_click
baslangic="<select id=degliste size=10 onclick='degliste_click'>"
bitis="</select>"
for each secenek in select2.options.all
if secenek.selected=true then
if right(klasoradi.value,1)<> "\" then ek="\" else ek=""
deglistesi=deglistesi+"<option>"+klasoradi.value+ek+secenek.innertext+"</option>"+vbcrlf
selami3.innerhtml=baslangic+deglistesi+bitis
selami4.innerhtml="<input type=button id='temizle' value='Değişecek listesini temizle' onclick='liste_temizle'>"
selami4.innerhtml=selami4.innerhtml+"<br><input type=text id=uzanti name=uzanti size=3 value='EPS'><br><input id='degistir' type=button value='hepisini bu uzantıya değeştir' onclick='degistir_click'>"
end if
next
end sub
Sub Select1_onclick
for each secenek in select1.options.all
if secenek.selected=true then
'surucuismi=left(secenek.innertext,2)
'klasorismi=mid(secenek.innertext,3,len(secenek.in nertext))
if secenek.innertext="(yukarı)" then
for i=len(klasoradi.value) to 1 step -1
if mid(klasoradi.value,i,1)="\" then
ustklasor=left(klasoradi.value,i-1)
exit for
end if
next
if len(ustklasor)=2 then ustklasor=ustklasor+"\"
klasorlistesial ustklasor
else
if right(klasoradi.value,1)<>"\" then klasoradi.value=klasoradi.value+"\"
if right(secenek.innertext,1)<>":" then
klasorlistesial klasoradi.value+secenek.innertext
else
klasorlistesial secenek.innertext+"\"
end if
end if
end if
next
End Sub
sub select2_onclick()
for each secenek in select2.options.all
if secenek.selected=true then
dim inteltifdeseni
set inteltifdeseni=createobject("scripting.dictionary")
inteltifdeseni.Add "uzunluk","3"
inteltifdeseni.Add "bilgi","II*"
dim mactifdeseni
set mactifdeseni=createobject("scripting.dictionary")
mactifdeseni.Add "uzunluk","3"
mactifdeseni.Add "bilgi","MM*"
dim epsdeseni
set epsdeseni=createobject("scripting.dictionary")
epsdeseni.Add "uzunluk","1"
epsdeseni.Add "bilgi",chr(197)
Dim fso, dosyam, bilgi
Set fso = CreateObject("Scripting.FileSystemObject")
klasor_ad=klasoradi.value
if right(klasor_ad,1)<>"\" then
klasor_ad=klasor_ad+"\"
end if
set dosyam = fso.opentextfile(klasor_ad+secenek.innertext, 1,0, 0)
'tiff için:
sonuc=dosyam.read(inteltifdeseni.Item("uzunluk"))
dosya_adi.innerhtml=secenek.innertext
if sonuc=inteltifdeseni.Item("bilgi") or sonuc=mactifdeseni.Item("bilgi") then
turu.innerhtml="Bence Bu dosya TIFF (bence tabi)"
exit for
else
turu.innerhtml=""
end if
dosyam.close
set dosyam = fso.opentextfile(klasor_ad+secenek.innertext, 1,0, 0)
'EPS için:
sonuc=dosyam.read(epsdeseni.Item("uzunluk"))
if sonuc=epsdeseni.Item("bilgi") then
turu.innerhtml="Bence Bu dosya EPS (bence tabi)"
exit for
else
turu.innerhtml=""
end if
dosyam.close
exit for
end if
next
set inteltifdeseni=nothing
set mactifdeseni=nothing
set epsdeseni=nothing
set dosyam=nothing
set fso=nothing
end sub
-->
</script>
</HEAD>
<BODY>
<!-- Insert HTML here -->
<INPUT type=button ID="klasoradi">
<table>
<tr>
<td><div id="selami"></div></td>
<td><div id="selami1"><font face=System></font></div></td>
</tr>
<tr>
<td> </td>
<td><input type=button id="ekle" value="değeceklerin listesine ekle" onclick="ekle_click"></td>
</tr>
<tr>
<td><a id="dosya_adi"></a>:<a id="turu"></a></td>
<td> </td>
</tr>
<tr>
<td><div id="selami4"></div></td>
<td><div id="selami3"></div></td>
</tr>
</table>
<script language=vbs id="listeleme">
klasorlistesial "C:\"
sub klasorlistesial(klasor_adi)
on error resume next
if klasor_adi="" then exit sub
klasoradi.innertext=klasor_adi
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
dim sonuc,klasorler,dosyalar,dosyaismi,surucu
set surucu=fso.GetFolder(klasor_adi)
set dosyalar=surucu.files
set klasorler=surucu.subfolders
'selami.innerhtml="<SELECT size=2 id=select1><option>selami</option></select>"
metin=metin+"<option>(yukarı)</option>"
for each klasorismi in klasorler
metin=metin+"<option>"+fso.getfilename(klasorismi)+"</option>"+chr(13)+chr(10)
'msgbox dosyaismi
next
for each suruculer in fso.drives
metin=metin+"<option>"+suruculer+"</option>"
next
baslangic="<SELECT size=10 id=select1 onclick='select1_onclick'>"
bitis="</select>"
selami.innerhtml=baslangic+metin+bitis
metin=""
dosyalistesial klasor_adi
end sub
'=======================
sub dosyalistesial(klasor_adi)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
dim sonuc,klasorler,dosyalar,dosyaismi,surucu
set surucu=fso.GetFolder(klasor_adi)
set dosyalar=surucu.files
for each dosyaismi in dosyalar
metin=metin+"<option>"+fso.getfilename(dosyaismi)+"</option>"+chr(13)+chr(10)
'msgbox dosyaismi
next
baslangic="<SELECT size=10 id=select2 multiple onchange='select2_onclick'>"
bitis="</select>"
selami1.innerhtml=baslangic+metin+bitis
'select2.options.all(0).selected=true
metin=""
set fso=nothing
end sub
'dim dosyam
'set dosyam=fso.OpenTextFile("F:\Documents and Settings\s1\Belgelerim\51 copy.eps", 1,0, 0)
'msgbox dosyam.read(10)
</script>
<!--
<SELECT size=2 ID=Select3>
<OPTION id="bilgi1" selected >selami</OPTION>
<OPTION id="bilgi2">ahmet</OPTION>
<OPTION id="bilgi3">mehmet</OPTION>
</SELECT>
-->
Not: sürücü isimleri klasor listesinin altında
</BODY>
</HTML>
saygılar