replace کردن

[tootro20]

سلام.

ببخشید چطور میشه که دستور داد تا فایل رو که فبلا ایتجاد کردیم replace بشه به فایل جدید؟!

ممنون:قلب:

[vbhamed]

سلام
با دستور خود ويژوال بيسيك
Name "C:\1.txt" As "C:\2.txt"
و با كمك كامپوننت
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "C:\1.txt", "C:\2.txt"

روش دومي بهتره

البته براي روش دوم مي‌تونيد از منوي Project گزينه References آيتم Microsoft Scripting Runtime رو تيك بزنيد و بعد كد زير رو بنويسيد، اينطوري مي‌تونيد ساير متدهاي شيء Fso رو هم ببينيد
Dim fso As New FileSystemObject
fso.MoveFile "C:\1.txt", "C:\2.txt"