İnceleme
Kategoriler
Anakart
Cep Telefonu
Notebook
ADSL Modem
İşlemci
Tablet
Ekran Kartı
Televizyon
Fotoğraf Makinesi
Depolama
Klavye ve Mouse
Giyilebilir Teknoloji
Kulaklık
Ses Sistemi
Oyun İnceleme
Ev Elektroniği
Navigasyon
Son İncelenenler
Huawei WiFi 7 BE3 inceleme
iPhone 16 Pro inceleme
Nillkin Desktop Stand, Nillkin MagRoad Lite, Nillkin Bolster Portable Stand inceleme
Mcdodo MC-1360 10.000 mAh LED Göstergeli Powerbank inceleme
Omix X6 inceleme
Anker Soundcore P40i inceleme
Razer Siren V3 Mini inceleme
Haber
Kategoriler
Kripto Dünyası
Cep Telefonu
Windows
Sosyal Medya
Oyun ve Eğlence
Bilim
Dijital Fotoğraf
Notebook
Ekran Kartları
Güvenlik
Mobil Uygulamalar
Twitter
Instagram
Facebook
CES 2024
Scooter
Araçlar
Netflix
Gitex 2022
En Son Haberler
vivo X100 Pro'nun kamera özellikleri neler?
Yeni AirTag'ler, eskisi gibi kolay "kurcalanamayacak"
Valve, Half-Life 2'nin 20. yılını büyük sürprizlerle kutluyor
Laptop şarj edebilen uygun fiyatlı monitör
Japonya, tamamen otonom araçlardan oluşacak özel bir yol inşa ediyor
NASA ve Microsoft, yapay zekalı "Earth CoPilot" için birlikte çalışıyor
Eğer Kanada'nın bu bölgesine yerleşirseniz, hızla kilo verebilirsiniz
Forum
CHIP Online
Chip Dergisi
PDF Arşivi
2008
Temmuz
CHIP Dergisi Arşivi: Temmuz 2008 - Sayfa 129
127
128
129
130
131
Kategoriler
İnceleme
Anakart
Cep Telefonu
Notebook
ADSL Modem
İşlemci
Tablet
Ekran Kartı
Televizyon
Fotoğraf Makinesi
Depolama
Klavye ve Mouse
Giyilebilir Teknoloji
Kulaklık
Ses Sistemi
Oyun İnceleme
Ev Elektroniği
Navigasyon
Haberler
Cep Telefonu
Oyun ve Eğlence
Bilim
Notebook
Ekran Kartları
Mobil Uygulamalar
Yapay zeka
Sony Xperia Z3
Xiaomi
Xbox One
Windows 11
Windows 10
TikTok
Sinema
Samsung Galaxy S8
Samsung Galaxy S6
Samsung Galaxy S5
Samsung
Playstation 5
Oyun konsolu
Otomobil
Ofis ve Finans
Note 4
MWC 2018
MWC 2017
MWC 2015
Microsoft
LG G6
LG G5
LG G4
LG G3
İşletim Sistemleri
İş dünyası
iPhone SE
iPhone 7
iPhone 6S
iPhone 6
iOS
Instagram
IFA 2017
HTC One M9
HTC 10
Google
Diziler
Discovery 2
CES 2018
CES 2017
CES 2015
Blockchain ve Bitcoin
Bilgisayarlar
Xbox Game Pass
Xbox Series S/X
Uzay
Android
Forum
© 2024 Doğan Burda Dergi Yayıncılık ve Pazarlama A.Ş.
www.chip.cOM.TR 07/2008 157 PRATİK?İPUÇLARI? 7. PrOfesyOnel İPUCU WindoWs B öyle bir listeyi oluşturmak için ince eleyip sık dokumak gerekiyor. Fakat bu işlemi siz yapmak zorunda değilsiniz: Bırakın Windows halletsin. Sistemde gerekli araçlar mevcut. Oluşturduğumuz bir program olan "LISTDOC.VBS" sayesinde bu dosyaların adlarını ve bulunduğu yerleri bir iste halinde çıkartabilirsiniz. Gerekli betiği hazırlamak için aşağıdaki kodları bir metin dosyasına girin ve dosyayı ".vbs" olarak kaydedin: OptionExplicit DimlistArgs DimobjFileSystem DimobjFolder,objSubFolder, objFile,objCvsFile DimstrFolder DimstrCsvFile SetlistArgs=WScript.Arguments SetobjFileSystem=CreateObject ("Scripting.FileSystemObject") IflistArgs.Count=0Then strFolder=InputBox("Aranacak klasörlerin adı? "," Klasör seçimi ", "C:\") Else strFolder=listArgs(0) EndIf strCsvFile="C:\Temp\ListeDOC.csv" strCsvFile=InputBox("Oluşturulaca k liste için isim ve konum? "," CVSdosyasını adlandırma " , strCsvFile) IfRight(strCsvFile,4)<>".csv"Then strCsvFile=strCsvFile&".csv" EndIf SetobjCvsFile=objFileSystem. CreateTextFile(strCsvFile1,true) objCvsFile.Write"Dosyanın adı" & ";" & "Dosya konumu" &vbNewLine listFilesstrFolder Kaybolan dosyaları şimşek hızında bulun Yıllar boyunca farklı klasörlerde yüzlerce Word dosyanız birikip duruyor. Basılabilir bir demirbaş listesi ile bu dosyalara hızlı bir içimde göz atabilirsiniz. objCvsFile.Close MsgBox"Dosya"&strCsvFile&" oluşturulacak!" WScript.Quit FunctionlistFiles(strFolder) IfobjFileSystem.FolderExists(strFolder)Then SetobjFolder=objFileSystem. GetFolder(strFolder) ForEachobjFileInobjFolder.Files IfUCase(Right(objFile.Name,4))=".DOC" OrUCase(Right(objFile.Name,5))= ".DOCX"Then objCvsFile.WriteobjFile.Name&";"& objFolder.Path&vbNewLine EndIf Next ForEachobjSubFolderIn objFolder.SubFolders listFilesobjSubFolder.path Next Else MsgBox"Verilen klasör" "&strFolder& "bulunamıyor!" EndIf EndFunction Listeyi oluşturmak Bir çift tıklama ile betiği çalıştırın. İlk pencerede aranmaya dâhil edilmesini istediğiniz klasör adını girin. Bir sonraki diyalog penceresinde ise betik, size oluşturulacak dosyanın yeri ve konumunu soracaktır. "LISTDOC.VBS" verdiğiniz klasör ve tüm alt klasörlerinde "DOC" ve "DOCX" biçimli dosyaları arıyor ve bulunduğu isimleri bir CSV dosyasında kaydediyor. Excel ile bu dosya biçimin kolayca açabilirsiniz. Daha sonra isterseniz bu uygulamayı masaüstünüzde de kullanabilir hatta sistem başlangıcına koyarak belli açılışlarda liste oluşturmasını sağlayabilirsiniz.
