کپی فایل

[tamasha.aliabad]

سلام وقت بخیر
چطور میشه طوری فایل های مختلف رو کپی کرد که بوسیله برنامه کپی خود ویندوز انجام بشه؟ یعنی به اون مشخصات فایل و مبد و مقصد رو بدیم تا کپی یا کات انجام بشه؟

[isaac23]

سلام می تونید از Fso استفاده کنید

فایل سیستم ابجکت
نکته : تابع زير كه به زبان VB هست از Microsoft Scripting Runtime Library براي كپي كردن يك Folder استفاده ميكنه.
بنابراين براي استفاده از تابع زير اول بايد در VB از منوي Project و بعد References گزينه Microsoft Scripting Runtime Library رو به پروژه خودتون اضافه كنيد.

Function CopyFolder(ByVal lsSource As String, ByVal lsDestination As String, _ Optional ByVal lbOverWriteFolder As Boolean) As Boolean
On Error GoTo CopyFolder_EH
Dim fso As New Scripting.FileSystemObject
Dim lbOverwrite As Boolean

If fso.FolderExists(lsSource) Then
If IsMissing(lbOverWriteFolder) Then
lbOverwrite = False
Else
lbOverwrite = lbOverWriteFolder
End If
fso.CopyFolder lsSource, lsDestination, lbOverwrite
CopyFolder = True
Else
CopyFolder = False
End If

CopyFolder_Exit:
Set fso = Nothing
Exit Function

CopyFolder_EH:
CopyFolder = False
Resume CopyFolder_Exit End Function

یک مثال برای تابع

Private Sub Command1_Click() CopyFolder "C:\MyFolder", "D:\MyFolder", False End Sub

[tamasha.aliabad]

سلام می تونید از Fso استفاده کنید

فایل سیستم ابجکت
نکته : تابع زير كه به زبان VB هست از Microsoft Scripting Runtime Library براي كپي كردن يك Folder استفاده ميكنه.
بنابراين براي استفاده از تابع زير اول بايد در VB از منوي Project و بعد References گزينه Microsoft Scripting Runtime Library رو به پروژه خودتون اضافه كنيد.

Function CopyFolder(ByVal lsSource As String, ByVal lsDestination As String, _ Optional ByVal lbOverWriteFolder As Boolean) As Boolean
On Error GoTo CopyFolder_EH
Dim fso As New Scripting.FileSystemObject
Dim lbOverwrite As Boolean

If fso.FolderExists(lsSource) Then
If IsMissing(lbOverWriteFolder) Then
lbOverwrite = False
Else
lbOverwrite = lbOverWriteFolder
End If
fso.CopyFolder lsSource, lsDestination, lbOverwrite
CopyFolder = True
Else
CopyFolder = False
End If

CopyFolder_Exit:
Set fso = Nothing
Exit Function

CopyFolder_EH:
CopyFolder = False
Resume CopyFolder_Exit End Function

یک مثال برای تابع

Private Sub Command1_Click() CopyFolder "C:\MyFolder", "D:\MyFolder", False End Sub

سلام‌تشکر فراوان
میگم چطوری میشه همین دستورات رو به نرم افزار های کپی ترجیحا tera copy ارسال کرد ؟

[tamasha.aliabad]

داداش این کدها برای VB.Net هستش
من تو تاپیک vb6 سوال پرسیدم

[tamasha.aliabad]

سلام می تونید از Fso استفاده کنید

فایل سیستم ابجکت
نکته : تابع زير كه به زبان VB هست از Microsoft Scripting Runtime Library براي كپي كردن يك Folder استفاده ميكنه.
بنابراين براي استفاده از تابع زير اول بايد در VB از منوي Project و بعد References گزينه Microsoft Scripting Runtime Library رو به پروژه خودتون اضافه كنيد.

Function CopyFolder(ByVal lsSource As String, ByVal lsDestination As String, _ Optional ByVal lbOverWriteFolder As Boolean) As Boolean
On Error GoTo CopyFolder_EH
Dim fso As New Scripting.FileSystemObject
Dim lbOverwrite As Boolean

If fso.FolderExists(lsSource) Then
If IsMissing(lbOverWriteFolder) Then
lbOverwrite = False
Else
lbOverwrite = lbOverWriteFolder
End If
fso.CopyFolder lsSource, lsDestination, lbOverwrite
CopyFolder = True
Else
CopyFolder = False
End If

CopyFolder_Exit:
Set fso = Nothing
Exit Function

CopyFolder_EH:
CopyFolder = False
Resume CopyFolder_Exit End Function

یک مثال برای تابع

Private Sub Command1_Click() CopyFolder "C:\MyFolder", "D:\MyFolder", False End Sub

داداش این کدها برای VB.Net هستش
من تو تاپیک vb6 سوال پرسیدم