İnceleme
Kategoriler
Cep Telefonu
Notebook
Anakart
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
MOVA S20 Ultra inceleme
Lenovo ThinkPad X1 Carbon Gen 12 inceleme
Huawei FreeBuds Pro 4 inceleme
WD MyPassport 6TB inceleme
TP-Link Archer BE230 inceleme
Dreame L10 Prime inceleme
SteelSeries Arctis GameBuds 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
Honor Magic 7 Pro, yapay zeka özellikleriyle tanıtıldı
İnsanlar, gerçek suç yapımlarına neden bu kadar ilgi gösteriyor?
Microsoft'tan U dönüşü: Google'ı kızdıran "Bing kurnazlığı" geri çekildi
Dünyanın en zengin 2. adamının şirketi uzaya gönderdi, Elon Musk tebrik etti
Elon Musk'tan tartışma yaratan tweet: Yardım mı, reklam mı?
EuroLeague'de çift maç haftası Tivibu'dan yayınlanacak
Nissan'ın efsanevi modeli R32 Skyline da elektriklendi
Forum
CHIP Online
Chip Dergisi
PDF Arşivi
2003
Ocak
CHIP Dergisi Arşivi: Ocak 2003 - Sayfa 95
93
94
95
96
97
Kategoriler
İnceleme
Cep Telefonu
Notebook
Anakart
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
© 2025 Doğan Burda Dergi Yayıncılık ve Pazarlama A.Ş.
150 Windows Otomasyonu AAKKTTÜÜEELL»»KKAAPPAAKK»»DDOONNAANNIIMM»»YYAAZZIILLIIMM»»PPRRAATT‹‹KK»»IINNTTEERRNNEETT CHIP" OCAK 2003 FolderName = SeneName + Ayismi Oluşturacağınız klasöre verilecek olan ismin biçimini bu komut satırı üzerinden değiştirebilirsiniz.Eğer klasör isminde ay değerinin önde bulunmasını ve sene ile arasına bir alt çizgi eklenmesini istiyorsanız,aşağıdaki satırı kullanabilirsiniz: FolderName = Ayismi + "_" +SeneName Klasörü olu?turmak ve Office çevresine eklemek Şimdi Kayıt Defteri'ndeki konum bilgisi ile oluşturduğunuz klasörün ismini birleştirin: Folder = Folderpath + "\" + FolderName Bunun sonucunda FileSystemnesnesi kullanılarak oluşturacağınız klasörün nerede saklanacağı bilgisi elde edilir. FileSystem.CreateFolder(Folder) Klasör oluşturulduktan sonra güncel ay bilgisi Kayıt Defteri'ne kaydedilir: Registry.RegWrite "HKEY_CURRENT_USER\ Software\Chip\SonTarih", Ay Bunun haricinde oluşturduğunuz bu klasörü,daha rahat ulaşabilmek için Office çevresine de eklemek istiyorsunuz.Bunun için Kayıt Defteri'nde değişiklik yapılması gereklidir: Registry.RegWrite "HKEY_CURRENT_USER\ SOFTWARE\Microsoft\Office\10.0\ Common\Open Find\Places\User DefinedPlaces\Place0\path", Folder Registry.RegWrite "HKEY_CURRENT_ USER\Software\Microsoft\Office\10.0\ Common\Open Find\Places\User DefinedPlaces\Place0\name", FolderName Profesyonel fonksiyon: Klasör seçmek Eğer klasörün oluşturulacağı yer Kayıt Defteri'nde belirtilmemişse,script'in kullanımı biraz zorlaşacaktır. set Arayuz = CreateObject("Shell. Application") Script'in daha okunaklı ve kullanışlı olması için bu parçanın ayrı bir fonksiyon içerisinde saklanması en iyi yoldur.Bir fonksiyon,script içerisindeki küçük bir script olarak açıklanabilir.Bu fonksiyon çağrılırken,eğer gerekirse ana programdan başlangıç değerleri gönderilir ve sonucunda bir değer elde edilir.IF koşul bloğu ile fonksiyon çağrımı aşağıdaki gibi görünür: If Folderpath="" Then Folderpath = Klasorsec() End if Yukarıdaki ifade eğer Kayıt Defteri'nde herhangi bir bilgi mevcut değilse KlasorSec fonksiyonunu çalıştır,anlamındadır. Fonksiyon çağrılırken kullanılan parantez içerisine,gerektiği takdirde fonksiyon içerisinde kullanılmak üzere başlangıç değerleri yazılabilir.Fonksiyon içerisinde ilk olarak,Windows'un klasör seç penceresinin ekrana gelmesini sağlayacak olan, BrowseForFolderkomutunun alacağı değer "Folder"değişkenine atanır. H›zl› Eri?im:Script, olu?turdu¤u ayl›k klasörü direkt olarak Office'in ki?isel çevresine ekler. Konforlu: Kullan›c›, klasörlerin ileride olu?turulacaklar› konumu bu ileti?im penceresini kullanarak seçebilir. set Folder = Arayuz.BrowseForFolder(0," Ayl›k klasörlerin ileride saklanacaklar› klasörü seçin",0,0) Buradaki sorun BrowseForFolderkomutunun seçilen klasörün tam konumu yerine sadece klasör ismini geri döndürmesidir.Bunun için,seçili klasörün bir üst düzeyindeki,yani içerisinde bulunduğu klasörün bilgisini veren ParentFolder özelliğinden faydalanabiliriz: set parent = Folder.ParentFolder set path = parent.items ParentFolder,bileşenleri (items) ve konumlarını elde eder.Bir döngü yardımıyla klasör isimlerinin ParentFolder içeriği ile karşılaştırılması sağlanır.Klasör bulunduğu zaman konum bilgisi "Path"üzerinden okunur: for each item in path if item.Name = Folder.Title then path Name = item.path next Son olarak aşağıdaki ifade fonksiyonu klasörün değerine atar: Klasorsec = pathName Elde edilen klasör konumu daha sonra Kayıt Defteri'ne yazılır ve ana programa geri dönülür.Script'imiz artık çalışmaya hazırdır! SG / Kadir Tuzta?, ktuztas@chip.com.tr Microsoft'un resmi Scripting sayfas›: www.microsoft.com/scripting/ Microsoft komut listesi: http://msdn.microsoft.com/library/ default.asp?url=/library/enus/ script56/html/vbscripttoc.asp Komutlara h›zl› bak›?, yüklenebilir Script'ler: http://www.winguides.com/ scripting/reference.php?id=32 Kod i?aretleme ve sat›r numaral› profesyonel editör: http://www.sapien.com/primal SCRIPT.htm Fiyat: 149 $ WEB ADRESLER‹ »Programc›lar›n kütüphaneleri
