كپي فولدر و محتوا توسط VB6 ؟

[giahchin]

با سلام،
من مي خوام در Visual Basic 6 يك فولدر با تمام محتوياتش را در يك مسير
ديگه كپي كنم ولي در Help ويژوال بيسيك فقط دستورات ساده كپي را
پيدا كردم كه تنها يك فايل را ميتونه كپي كنه ولي دستوري براي كپي يك فولدر
با تمام فايلها و ساب فولدرهاي داخل آن پيدا نكردم.
لطفا اگه كسي مي تونه من رو راهنمايي كنه.

 

[parshia]

salam fek konam in bedardet bekhoreh
Syntax


[
object.CopyFolder source, destination [, overwrite

VA PART HAYE DIGASH INEH
KEH MANZOURE (FileSystemObject) <-------object
source
destination
KEH MANZOURE (Boolean )< -------overwrite

INAM YE MESAL:
FileSystemObject . CopyFolder
c:\mydocuments\letters
,"*\
"\c:\tempfolder"

 

[parshia]

ye chizam mikhastam ezafeh konam inkeh man bishtar az in mikhastam barat tozih bedam ama hamisheh neveshtan to in site mano khasteh mikoneh, akheh aslan nemifahmam che jouri bayad nevesht vaghty keh mikham CODE barat benevisam bar aks mineviseh
baraye hamin man kalafeh misham be hamin khater natounestam bishtar barat to zih bedam ageh khast behem mail bezan ta barat engilisisho beferestam

 

[giahchin]

سلام به دوست عزيز
اولاٌ از راهنمايي كه كردي ممنونم .
دوماٌ در رابطه با مشكل كد نوشتن بايد خدمدتون عرض كنم كه راه داره . راهش اينه كه اول متن كد رو در Tonepad ويندوز يا هر محيطي كه راحتي بنويس و بعد اون رو كپي كن . بعد همونجا كه داري متن نامه رو تايپ مي كني يك سري كليد بالاي متن مشاهده مي كني كه يكي از اونها به نام code . كليد code رو يكبار بزن يك اينتر بزن و دوباره كليد code رو بزن . حالا بين دو علامت كه گذاشتي متن در حافظه ات رو Paste كن . براي اطمينان از درستي متن ميتوني قبل از ارسال كليد پيش نمايش رو بزني اگه درست بود نامه رو ارسال كن .

اين هم يك مثال :

object.CopyFolder source, destination [, overwrite ]
FileSystemObject . CopyFolder

 

[kavian]

سلام giahchin عزيز
تابع زير كه به زبان 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

اين مثال فولدر MyFolder و محتويات اون رو از درايو C در درايو D كپي ميكنه و پارامتر آخر (lbOverWriteFolder) كه يك مقدار Boolean هست در صورت True بودن اگر اين فولدر وجود داشته باشه اون رو Replace ميكنه.

موفق باشيد.

 

[giahchin]

درود به كاويان ،
از راهنمايي كامل شما ممنونم . حتما٬ امتحانش مي‌كنم .