Copy فایلها از طریق بکارگیری دستور Shell

[A.Farzin]

با سلام

در خط فرمان با نوشتن فرمان زیر به سادگی تمامی فایلهای دارای پسوند exe به مسیر جدید کپی میشدند.

Copy c:\All\*.exe c:\All2

می‌خواهم بدانم که اگر قرار باشد این کار را داخل برنامه و از طریق دستور Shell انجام دهیم چگونه باید عمل کرد؟

ممنون

[romina2006]

با سلام

در خط فرمان با نوشتن فرمان زیر به سادگی تمامی فایلهای دارای پسوند exe به مسیر جدید کپی میشدند.

Copy c:\All\*.exe c:\All2

می‌خواهم بدانم که اگر قرار باشد این کار را داخل برنامه و از طریق دستور Shell انجام دهیم چگونه باید عمل کرد؟

ممنون


Private Sub Command1_Click()
Dim Path As String
Path = Environ("windir") & "\system32\cmd.exe /c copy c:\all\*.exe c:\all2"
Call Shell(Path, vbHide)
End Sub

[A.Farzin]

اگر در یکی از آدرسهای مبداء یا مقصد فاصله وجود داشته باشد، روش فوق درست کار نمی‌کند.
لطفا در صورت امکان راهنمایی کنید که برای این حالت چه باید کرد. مثلاً اگر کد فوق بدین شکل باشد:

Private Sub Command1_Click()
Dim Path As String
Path = Environ("windir") & "\system32\cmd.exe /c" & _
" copy c:\all\*.exe C:\Program Files"
Call Shell(Path, vbHide)
End Sub

آیا نمی‌توان از آدرس کوتاه استفاده کرد؟
آدرس بلند را چگونه باید به کوتاه تبدیل کرد؟

[romina2006]

Private Sub Command1_Click()
Dim Path As String, Path1 As String, Path2 As String
Path1 = """c:\all\*.exe"""
Path2 = """C:\Program Files"""
Path = Environ("windir") & "\system32\cmd.exe /c copy " & Path1 & " " & Path2
Call Shell(Path, vbHide)
End Sub