Aio Ile Klasör Içeriğini Naıl Görüntülerim

[yakupnun]

merhabalar aio ile klasör içeriğini naıl görüntülerim yani ne istediğimi tam olarak anlatayım bel ki yardımcı olabilirsiniz .
mesela fen klasörünün içeriğini listbox ta görüntüle ye bilir miyim sonrada listelenen dosya ismine tıklayınca o dosyayı çalıştırsın.istiyorum kad kısmına kadar olan şeyleri hallettim sonrasını bi türlü beceremedim yardımcı olursanız sevinirim.aio da çok yeniyim multi media builder kullanmıştım ama bunu ilk

[KintaRo]

listboxa ekleme:

[code]tAra = File.Find("C:\\Windows", "*.*", false, false, nil, nil)
if tAra then
for i,v in pairs(tAra) do
ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v)
end
end

[/code]

listbox on doubleclick evresi:

[code]local nSecilen = ListBox.GetSelected(this)
if nSecilen[1] ~= -1 then
local sData = ListBox.GetItemData(this, nSelected[1])
File.Run(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false)
end[/code]

[yakupnun]

teşekkür ederim listeleme yaptım konu başlıklarında bu kodu görmüştüm ama çalıştıramamıştım şimdi çalıştı ancak listelenen dosyayanın üzerine tıklayın ca çalışması lazım mesela:

atatürk ilkeleri.ppt
inkılaplar.ppt
osmanlı.ppt

gibi listeledi inkılaplara tıklayınca pover pointte açabilirmi

[nightmare3519]

Ben böyle birşey yazdım ama hep apznin olduğu klasörü açıyor

ListBox On Double Click

result = ListBox.GetSelected("ListBox1");
result2 = ListBox.GetItemData("ListBox1", result);
File.Open(result2, "", SW_SHOWNORMAL);


Herhangi bir sıranın datasına

File Open komutunun result2 yazan yeri

[yakupnun]

tAra = File.Find("[color="#FF0000"]C:\\arayuz\tr[/color]", "*.*", false, false, nil, nil)
if tAra then
for i,v in pairs(tAra) do
ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v)
end
end


kırmızı ile yazdığım dosya yolunu görüntülemiyor

ancak C:\\arayuz bu şekilde yazarsam görüntülüyor bunun nedeni ne olaki acaba

[Kral__]

tAra = File.Find("C:\\arayuz\tr", "[color="#FF0000"]*.*[/color]", false, false, nil, nil)

uzantıyı yazda dene bakalım

[yakupnun]

ama ben klasörün tüm içeriğini list box a basmak istiyorum uzantı yazarsam sadece ouzantıyı getirir be klasör ve tüm uzantılardaki dosyaları görmek istiyorum ama yardımın için genede teşekkürler.

[Kral__]

nSec = ListBox.GetSelected(this);
nData = ListBox.GetItemData(this, nSec[1]);
File.Open(nData, "", SW_SHOWNORMAL);

veya File.Run olarakta dene

Edited February 26, 2012 by Kral__

[yakupnun]

bunu list box un on double clickinemi yoksa sayfayamı yazacam bu kod konusunu hiç bilmiyom

[Kral__]

listboxun duable click evresine

[yakupnun]

list box ta ondoubleclicte böle bir kod kullanıyorum

local nSecilen = ListBox.GetSelected(this)
if nSecilen[1] ~= -1 then
local sData = ListBox.GetItemData(this, nSelected[1])
File.Run(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false)
end

[Kral__]

çalışyormu ?

[yakupnun]

malesef dosya yolu C:\arayuz olunca çalışıyor

C:\arayuz\AutoPlay\program\tr olunca çalışmıyor

[Kral__]

AutoPlay\\program\\tr\\

olarak dene

[yakupnun]

error attempt to index local 'nSecilen '(a nil value) list box a çift tıklayınca böle bir hata veriyor

[Kral__]

sen bi apz verirsen belki yapabilirim

[yakupnun]

çok teşekkür ederim listelemeyi son verdiğin şekilde yaptırdım şimdi son birşey sorayım cevap verebilirsen sevinirim bu listelenen içerikteki dosya ismine tek tıklatınca odosyayı açmasını istiyorum mesele osmanlı.ppt veya ali.txt gibi bunları ait olduğu programla açabilirmi bu program

[Kral__]

kodları on selecte taşı

[yakupnun]

[img]https://lh4.googleusercontent.com/-0M202kxfndA/T0n7lxjJn7I/AAAAAAAAAxk/3U028bHOclY/s738/smatr.png[/img]

resimdeki hatayı veriyor.

[Kral__]

codeları ver bakalım

[yakupnun]

tAra = File.Find("C:\\arayuz\\AutoPlay\\program\\tr\\", "*.*", false, false, nil, nil)
if tAra then
for i,v in pairs(tAra) do
ListBox.AddItem("ListBox1", String.SplitPath(v).Filename, v)
end
end
page propertiez de ki bu

list box taki debu
local nSecilen = ListBox.GetSelected(this)
if nSecilen[1] ~= -1 then
local sData = ListBox.GetItemData(this, nSelected[1])
File.Open(sData, "", String.SplitPath(sData).Drive .. String.SplitPath(sData).Folder, SW_SHOWNORMAL, false)
end

[Kral__]

on selecttekini benimkini kullanbi

[yakupnun]

hocam çok teşekkür ederim allah razı olsun baya işimi gördü
peki aynı sayfada birden çok list boksta farkl klasör içeriğini göürntülemem için page proteirzdeki kodu nasıl düzenlemeleyim

Edited February 26, 2012 by yakupnun

[Kral__]

aynıları yazıcaksın ama klasörün yolunu değiştirmen lazım

[yakupnun]

hocam bir kere daha çok teşekkürler inşallak içeriği bitince paylaşacam yardımlarınızla yaptığım program umumun malı olacak