Vba ကို အသုံးပြု၍ ဖိုင်များကို မည်ကဲ့သို့ ရွှေ့ရမည်နည်း။

ဖိုင်တစ်ခုကို ဖိုဒါတစ်ခုမှ အခြားဖိုင်တစ်ခုသို့ ရွှေ့ရန် VBA တွင် MoveFile နည်းလမ်းကို အသုံးပြုနိုင်သည်။

ဤနည်းလမ်းကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination file
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\soccer_data.txt"

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

ဤအထူးမက်ခရိုသည် soccer_data.txt ဟုခေါ်သောဖိုင်ကို Some_Data_1 ဟုခေါ်သောဖိုင်တွဲမှ Some_Data_2 ဟုခေါ်သောဖိုင်တွဲတစ်ခုသို့ ရွှေ့သည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA ကိုသုံးပြီး ဖိုင်တွေကို ဘယ်လိုရွှေ့မလဲ။

ကျွန်ုပ်တို့၏ဒက်စ်တော့တွင် Some_Data_1 ဟုခေါ်သော ဖိုဒါတစ်ခုတွင် soccer_data.txt ဟုခေါ်သော စာသားဖိုင်တစ်ခုရှိသည် ဆိုကြပါစို့။

ယခုလက်ရှိတွင် စာသားဖိုင်နှစ်ခုပါရှိသော ကျွန်ုပ်တို့၏ desktop ရှိ Some_Data_2 ဟုခေါ်သော အခြားဖိုင်တွဲသို့ ဤစာသားဖိုင်ကို ရွှေ့ရန် VBA ကို အသုံးပြုလိုသည်ဆိုကြပါစို့။

ဤဖိုင်ကိုရွှေ့ရန် VBA ကို အသုံးမပြုမီ၊ VB တည်းဖြတ်မှုတွင် Microsoft Scripting Runtime ကို ဦးစွာဖွင့်ရပါမည်။

ဒါကိုလုပ်ဖို့၊ VB editor ကိုဖွင့်ပြီး Tools ကိုနှိပ်ပြီး References ကို နှိပ်ပါ။

ပေါ်လာသည့်ဝင်းဒိုးအသစ်တွင်၊ Microsoft Scripting Runtime ကို တွေ့သည်အထိ အောက်သို့ဆင်းကာ ၎င်းဘေးရှိ ဘောက်စ်ကို အမှန်ခြစ်ပေးပါ။ ထို့နောက် OK ကိုနှိပ်ပါ။

ထို့နောက် ဖိုင်ကိုရွှေ့ရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည် ။

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination file
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\soccer_data.txt"

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

ဤ macro ကို လုပ်ဆောင်ပြီးသည်နှင့် soccer_data.txt အမည်ရှိ ဖိုင်ကို Some_Data_1 ဖိုဒါမှ Some_Data_2 ဖိုင်တွဲသို့ ရွှေ့သွားပါမည်-

ဖိုင်အားလုံးကို ဖိုင်တွဲတစ်ခုမှ အခြားဖိုင်တစ်ခုသို့ ရွှေ့လိုပါက အောက်ပါ syntax ကို သုံးနိုင်သည်ကို သတိပြုပါ။

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source and destination folders
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\*"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\"

'move all files from source folder to destination folder
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

ဤအထူးမက်ခရိုသည် Some_Data_1 ဖိုဒါမှ ဖိုင်အားလုံးကို Some_Data_2 ဖိုဒါသို့ ရွှေ့ပါမည်။

မှတ်ချက် – MoveFile နည်းလမ်းအတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာဖွေနိုင်ပါသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA ကို အသုံးပြု၍ ဖိုင်တွဲများဖန်တီးနည်း
VBA သုံးပြီး ဖိုင်တွဲတွေကို ဘယ်လိုဖျက်မလဲ။
VBA သုံးပြီး ဖိုင်တွေကို ဘယ်လိုဖျက်မလဲ။