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"