Jump to content

Klasör İçeriği Sildirmek ?


vandan2
 Share

Recommended Posts

Teşekkürler

Ama bir sorum daha var. Mesela benim sildireceğim dizin ;
C:\Documents and Settings\Adminisrator\Local Settings\Application Data\xxx\xxxxx\xxxx\xxxx

Ancak bu dizindeki adminisrator her bilgisayarda farklı olduğu için bunun kullanıcıdan yazmasını isteyeceğiz inputa.
Onu tam olarak nasıl aktarıyoruz ? Şu şekilde mi?

[codebox]Case $Button1
Send(GuiCtrlRead($input1))
DirRemove ("C:\Documents and Settings\$input1\Local Settings\application data \xxxxx\xxxx\xxxx\xxxx",1)[/codebox]

Edited by blue_life
Codebox alanı sayfa düzenini bozuyordu!
Link to comment
Share on other sites

@vandan2

Bunun için autoitteki macroları kullanmalısın. Yardım dosyasındaki [b]Macro Reference - Directory[/b] bölümüne bak!
Soruna gelirsek, aşağıdaki bir komut senin sorunun çözecektir....

[color="#0000FF"][b]DirRemove(@AppDataDir & "\xxxxx\xxxx\xxxx\xxxx",1)[/b][/color]

Link to comment
Share on other sites

[b]@blue_life
cevabın için teşekkürler. sanırım bunun sayesinde herhangi bir inputa gerek de kalmadı. Otomatik olarak appdata kısmına gidicek. peki xxx/xxxx kısmına appdata kısmından sonrakini mi yazmam gerekiyor ? Yoksa tümünü üstteki haliyle mi yapıştırıyım ? :.[/b]


Kodu aşağıdaki şekilde denedim ancak işe yaramadı.

DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)

Ben local settingsin içindei appdata ya gitmesini istiyorum acaba o yüzden mi sorun oldu?

@weyso

ayrıca verdiğin eki indiremiyorum. Bu dosyayı indirmenize yetki yok diyor.

Edited by vandan2
Link to comment
Share on other sites

@vandan2

Komutta bir sorun görümüyor. Tavsiyem ilk önce sildirmek istdiğin klasörünün konumun doğru olup olmadığına bakalım.
Bunu en basit olarak, mesaj kutusuyla kontrol edebilirisiz.

[b]MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default")
DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b]

Diğer taraftan, igili klasörü silmek için yetkiye sahip olmayabilirsiniz. Sistemin nedir.
Aşağıdaki komut ile tekrar dene;
[b]#RequireAdmin

MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default")
DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b]

Yada ilgili klasörün altında bir dosya veyahut bir program kullanıldığından, içerik silinemiyordur.
Veyahut ilgili dosyalardan birisi salt okunur ise sorun çıkıyor olabilir.
Ozaman;

[b]#RequireAdmin

MsgBox(64,"",@AppDataDir & "\Google\Chrome\User Data\Default")

FileSetAttrib(@AppDataDir & "\Google\Chrome\User Data\Default","-RS",1)
DirRemove(@AppDataDir & "\Google\Chrome\User Data\Default",1)[/b]

vs. vs. gibi bir çok nedenden sorun yaşamaış olabilirsin...
Biraz kurcala...

Link to comment
Share on other sites

Çok Teşekkürler ! İşe yaradı :) Konu kapanmasında daha soracaklarım olabilir .


Edit:
Evet bir sorum daha var :)

Acaba hangi komutla programın penceresini sistem çubuğuna küçültebiliyoruz ? Yani çalışınca sağ altta çıkıyor ama pencerenin kaybolmasını istiyorum.

Edited by vandan2
Link to comment
Share on other sites

@vandan2

Heralde simge durumuna atmaktan bahsediyorsun. Peki bu pencereyi autoit ilemi oluşturdun.
Yoksa farlı windows penceresi mi?

Autoit ile oluşturduğun pencere ise; [b]GUISetState(@SW_MINIMIZE)[/b] işini görecektir.
Eğer farklı bir windows penceresi ise; [b]WinSetState("Başlık bigisi", "", @SW_MINIMIZE)[/b] işini görecektir...

Tabi istersen komplede saklayabilirsin. Bun için, [b]@SW_MINIMIZE[/b] yerine [b]@SW_HIDE[/b] makrosunu kullanacaksın.

Link to comment
Share on other sites

[b]Blue life çok teşekkür sayende bunuda çözdüm. ama bir sorum daha var :D

İlk başta verdiğin DirRemove(@UserProfileDir & "\xxxxxxxx\xxxxx\xxxx\xxxxx\xxxx\xxxxx",1)
kodu ile klasör içeriği değilde klasörün tamamı siliniyor. ben bunu temp klasöründe kullanmaya çalıştığımda ise windows silinemez hatası veriyor. yani içeriği silmiyor. Şu şekilde yapıyorum:

DirRemove(@UserProfileDir &; "\Local Settings\Temporary Internet Files\ ",1)

Bu durumda klasörün içeriğini silmesi gerekmez mi ? [/b]

Link to comment
Share on other sites

[codebox]_Blue_Dir_Remove(@UserProfileDir & "\Local Settings\Temporary Internet Files")

Func _Blue_Dir_Remove($Folder)
If StringRight($Folder,1) <> "\" Then $Folder &= "\"

Local $search = FileFindFirstFile($Folder & "*") ,$file
If $search <> -1 Then
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If @extended = 1 Then
If DirRemove($Folder & $file,1) = 0 Then
FileSetAttrib($Folder & $file,"-RSH",1)
DirRemove($Folder & $file,1)
EndIf
Else
If FileDelete($Folder & $file) = 0 Then
FileSetAttrib($Folder & $file,"-RSH")
FileDelete($Folder & $file)
EndIf
EndIf

WEnd
EndIf
FileClose($search)
EndFunc[/codebox]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...