VB.NET

Question

में फ़ाइल का नाम बदलने का तरीका मैं समझता हूं कि VB.NET में फ़ाइल का नाम बदलने के लिए कैसे मैं अपनी पोस्ट के अंत में कोड में उपयोग करता हूं। हालांकि, मैं सोच रहा था कि फ़ाइल का नाम बदलना संभव है और यदि फ़ाइल मौजूद है तो इसका नाम बदलने और फ़ाइल नाम में +1 जोड़ने के लिए?

तो अगर मैं कोड चलाता हूं।

'भागो यह पहली बार

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "c:\test\NewName.txt") 

' इसे फिर से चलाने के लिए, लेकिन यह फ़ाइल पहले से मौजूद होगा के रूप में +1 जोड़ना चाहिए, तो यह होना चाहिए "c: \ परीक्षण \ NewName1.txt"

:

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "c:\test\NewName.txt") 

अद्यतन

मैंने तय कर लिया बजाय नाम बदलने और +1, यह सिर्फ तारीख यह डाक टिकट के रूप में किसी को जो मैंने किया संघर्ष के लिए हां, तो बेहतर होगा

My.Computer.FileSystem.RenameFile("c:\test\test.txt", "Test" & Format(Date.Now, "ddMMyy") & ".txt") 

Answer 1

आपको इसके लिए अपना तर्क लिखना होगा।

File कक्षा में फ़ाइलों से निपटने के लिए कई उपयोगी विधि हैं।

If File.Exists(filePath) Then 
    ' Give a new name 
Else 
    ' Use existing name 
End If 

Path वर्ग फ़ाइल पथ से निपटने के लिए कई तरीके हैं।

Path.GetFileNameWithoutExtension(filePath) 

Answer 2

If System.IO.File.Exists("c:\test\NewName.txt") Then 
    ' add +1 or loop exists with increment on the end until file doesn't exist 
End If 

Answer 3

आप newFileName पैरामीटर में पूरा फ़ाइल पथ का उल्लेख करने की जरूरत नहीं है, बस यहाँ नया फ़ाइल नाम का उल्लेख अन्यथा आप ArgumentException मिल जाएगा।

Dim filePath As String = "C:\fingerprint1" 

If File.Exists(filePath) Then 

    Dim strNewFileName As String = "Fingerprint221" 

    My.Computer.FileSystem.RenameFile(filePath, strNewFileName) 

End If