كپي كردن فايل و تغيير نام آن

[mahmood3d]

با سلام دوستان عزيز
چطوري مي شه توي وي بي يك فايلي رو به جاي ديگه اي كپي كرد ؟
در ضمن مي خوام فايلي كه كپي ميشه اسمش رو عوض كنم و اگه به اون اسم فايلي توي پوشه مقصد بود يك پيغام نشون بده و اگه كاربر اونو تأييد كرد روي فايل قبلي Over Write كنه . :لبخند:
از دوستان عزيز لطف كنين هر چه زودتر جواب بدين خوشحال مي شم . چون يك موضوع حيثيتيه .:بوس:

[sohrab o]

FileCopy Source,Destaination

[mahmood3d]

حالا اگه فايلي تو قسمت مقصد بود اين فايل روي اون باز نويسي مي شه ؟

[noorsoft]

بله
میتونین وجود فایل تو مقصد رو چک کنید با دستور Dir

[f.nabavi]

سلام .میشه از کد زیر هم استفاده کرد:

Dim fso1 As New FileSystemObject
Private Sub Copyfile_Click()
Call fso1.Copyfile("C:\test.txt", "C:\test1.txt", True)
End Sub

قبل از اون باید در بخش project>references، گزینه Microsoft scripting runtime رو اضافه کنید. پارامتر سوم که در اینجا true هست عمل بازنویسی رو انجام میده

[mahmood3d]

بله
میتونین وجود فایل تو مقصد رو چک کنید با دستور Dir


اگه امكان داره نحوه استفاده از دستور Dir رو توضيح بدين

[sohrab o]

Dir("c:\Test.exe")

اگه فایل test در مسیر باشد نام فایل را بعنوان خروجی بر میگرداند و اگر نباشد مقدار تهی بر میگرداند

[mahmood3d]

از همه دوستاني كه زحمت مي كشند خيلي خيلي ممنونم
حالا چطوري مي شه فايل رو تغيير نام داد ؟
در ضمن از دوستان اگر وقت كردند به پست زير هم يه سر بزنند منتظر جوابم .
http://barnamenevis.org/forum/showthread.php?t=119443

[r0ot$harp]

Name [Old File Name] AS [New File Name]



باتشکر احسان

[mahmood3d]

احسان جان ميشه كمي توضيح بدي . بعد از كلمه Name بايد آدرس كامل فايل رو بديم و آيا نياز به وارد كردن پسوندش هست يا نه ؟؟؟؟؟

[r0ot$harp]

احسان جان ميشه كمي توضيح بدي . بعد از كلمه Name بايد آدرس كامل فايل رو بديم و آيا نياز به وارد كردن پسوندش هست يا نه ؟؟؟؟؟

دوست عزیز فکر می کنم این دیگه کاملا واضح باشد .



Name "C:\OldName.txt" As "C:\NewName.txt"




باتشکر احسان

[mahmood3d]

Mer30
كاملا افتاد