Hello to all
simply when i delete a file and the file is goto recycle bin after deleted.
when we use ( Kill ) command then my file delete direct and cannot goto recycle bin
please help
razamughal67
0
Light Poster
Recommended Answers
Jump to PostSee if this helps :
Private Sub Recycle2(ByVal FQFileOrFolder As String) 'Late bound. Dim Delim As Integer Dim FItem As Object Const ssfBITBUCKET = 10 Delim = InStrRev(FQFileOrFolder, "\") With CreateObject("Shell.Application") For Each FItem In .NameSpace(Left$(FQFileOrFolder, Delim - 1)).Items If Not FItem.IsLink Then If UCase$(FItem.Name) = UCase$(Mid$(FQFileOrFolder, …
Jump to PostThanks Jx man
i am very thanks full to you.
you solve my problems many time. so Thanks you are a Genius.
Thanks alotYou're Welcome :)
Don't forget to mark this thread as solved. It will help another members who has same problem like you.Thank you.
Jump to Postwhen i click on the command botton then it will show a
Run time error 52
if we delete this line to my coding
Err.Raise 52
then it will show Message (Msgbox "File recycled")
but cannot delete my file
please send me again code here is some problem so please …
Jump to PostIs this thread has been resolved?
Plase mark it As SOLVED if it already finished.
If not then post your feedback.
All 16 Replies
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
razamughal67
0
Light Poster
razamughal67
0
Light Poster
Jx_Man
987
Nearly a Senior Poster
Featured Poster
deepakbshitole
0
Newbie Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.