Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
merhaba arkadaslar ,
vfp icinde dizin silmek icin forumda buldugum komut
ofs = CREATEOBJECT("Scripting.FileSystemObject")
odir = ofs.GetFolder("c:\mset\data")
odir.Delete
seklinde. bu kodlar windows un tum surumlerinde geçerli mi? sorunsuz bir komut mudur ?
tesekkurler...
Aydın; eğer PC yada Server da script dosyalarının çalışması kısıtlanmamışsa; Windows XP ve sonrası tüm işletim sistemlerinde çalıştırabilirsin. Ancak bazı bilgisayarlarda güvenlik nedeni ile SCRIPTING türevi uıygulamalara kısıtlama getirilmiş olabiliyor.
Bu konuda daha önce benim makinemde bir sorun yaşamıştım. Nasıl olduğunu hala bilemiyorum. Bir şekilde SCRIPTING özelliğim devre dışı kaldı ve hala aktif hale getiremedim. Konuyu baya araştırmama rağmen. En güzel çözümün temiz bir sistem kurulumu olduğunu öğrendim. Zamansızlıktan ise hala bir kurulum yapamadım 
Genel olarak %95 in üzerinde sorun yaşamayacağını düşünüyorum.
Birde bendeki arşivde şöyle bir kod var :
Kodun yazarını not almamışım.
lcFolderTodelete = "c:\yourfolder"
IF DIRECTORY(m.lcFolderTodelete,1)
IF MESSAGEBOX("Do you want to delete "+m.lcFolderTodelete+"?",4+32+256) = 6
oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder(m.lcFolderTodelete )
ENDIF
ENDIF
saol verdigin bilgi icin..
bu durumda vfp komutlari ile recursive bir fonksiyon yazmak en garantilisi galiba..
Aydın, bence fazla kasma; amaç folder silmek ise örnek kod zaten iş görüyor. Kullanıcının sistemi standart dışı ayarlara sahipse bırak kullanıcı düşünsün!
... bırak kullanıcı düşünsün!
düşünen bir kullanıcı ... nerde var bu türden?
Aydın Bey, ben şahsen scripting kullanmiyorum.
Şuraya bir göz atarsanız:
http://www.news2news.com/vfp/?example=5 … nction=494
Orda API function ile bu işlemin nasıl yapıldığını gösteriyor.
Aydın Bey, ben şahsen scripting kullanmiyorum.
Şuraya bir göz atarsanız:
http://www.news2news.com/vfp/?example=5 … nction=494
Orda API function ile bu işlemin nasıl yapıldığını gösteriyor.
baktım çözüme. itiraf ediyorum ki yöntemi anlamadim. sistem bilgimi aşıyor. bilmediğim ne çok şey varmış ! bu çözümün mantığı nedir ? Bana birisi anlatabilir mi?
yardımlarınız için teşekkürler...
Aydın Bey, bir başka öneri: dos command kullansanız?
rmdir c:\temp\pdf /s /q
Bu komut örneğin pdf klasörünü sesiz sedasız siliyor.
sanirim en efendi cozum bu dos komutu hic aklıma gelmemişti. zaten bu kadar komutlada dizini sildiremezsem silinmese de olur
m.xdir=GETDIR()
IF 6=MESSAGEBOX(m.xdir,292,"dizin boş ise silinecek")
DECLARE Integer RemoveDirectory IN kernel32 As RemoveDirectoryA ;
String lpPathName
= RemoveDirectoryA(m.xdir)
ENDIF
dizin boş değilse önce içindeki dosyalar silinmeli onun için komut ve dizin içi araştırma için komut fikirleri aşağıda:
DECLARE Integer DeleteFile IN kernel32 As DeleteFileA ;
String lpFileName
=ADIR(dizindekidosyalar,"*.*","AD")
Benim FileOperations diye bir classlib'im vardi. Onu kullanabilirsin:
http://rapidshare.com/files/433454542/f … ations.zip
Kullanim ornegi:
LOCAL loFileOp as fileIO OF 'd:\vfpCommonClasses\FileOperations.vcx'
loFileOp = NEWOBJECT('fileIO','d:\vfpCommonClasses\FileOperations.vcx')
* loFileOp = NEWOBJECT('fileIO','d:\vfpCommonClasses\FileOperations.vcx','', .t.) && progress bar gibi UI ile
lcFolder = "C:\temp\Kurban Dizin"
loFileOp.xdelete(m.lcFolder,'',.t.) && lcFolder, tumu, alt dizinlerle birlikte
Uyarilar:
1) VFP ile gelen Filer.dll kullaniyor. Musterine onu da vermeli ve register etmelisin.
2) Recyle Bin'e atmiyor. Shift+Delete gibi calisiyor.