x दिनों vb.net

Question

पुरानी फ़ाइलों को मैं कोड की एक बुनियादी बिट जो मैं एक दिया निर्देशिका में पाठ फ़ाइलों को हटाने के उपयोग कर रहा हूँ है को नष्ट करने की कोशिश कर:

For Each file As IO.FileInfo In New IO.DirectoryInfo(filePath).GetFiles("*.txt") 
    If (Now - file.CreationTime).Days > intdays Then file.Delete() 
    Next 

filePath निर्देशिका जहां फाइलों रहते है।

intdays एक चर है जो निर्धारित करता है कि फ़ाइलों को कितनी दिनों तक बनाए रखा जाना चाहिए।

कोड का परीक्षण करने के लिए मैंने 0 को intdays सेट किया है, यह मानते हुए कि यह डायरेक्टॉय में किसी भी फाइल को हटा देगा। हालांकि यह नहीं करता है, लेकिन कोई त्रुटि नहीं बनाता है।

समय "अब" # 2/8/2012 13:59:00 अपराह्न # जो 0 से बड़ा है। लेकिन मैं उलझन में हूं कि यह फ़ाइल को क्यों हटा नहीं देता है?

Answer 1

तिथियों के बीच अंतर एक दिन से कम है।

आप Days संपत्ति को कॉल कर रहे हैं, जो एक पूर्णांक प्रकार है - यह एक दिन से भी कम अंतराल के लिए 0 होगा।

Answer 2

मैं परीक्षण किया है यह

 Dim d = New Date(2012, 11, 21, 16, 0, 0) 
     Dim dGreater = New Date(2012, 11, 21, 17, 0, 0) 
     Dim result = dGreater - d 
     Console.WriteLine(result.Days) 

तो जब आप तारीखों कि एक दिन परिणाम की Days संपत्ति 0 है, अर्थात कम पूर्णांक मान को छोटा कर दिया की तुलना में कम अंतर है घटाकर कर रहे हैं।

Answer 3

आप जो भी हासिल करने की कोशिश कर रहे हैं उसके आधार पर के बजाय LastWriteTime का उपयोग करना चाह सकते हैं।