کپی از یک دایرکتوری و انتقال به سرور

[komail_sh]

سلام
خسته نباشید
من میخوام از یه دایرکتوری، که کاربر اونو انتخاب میکنه رو کپی کنم و در یک مسیر از پیش تعیین شده بریزم.:متفکر:
این کار رو با فایل ها انجام دادم ولی متاسفانه اون دستور دایرکتوری رو قبول نمیکنه و فقط برای کپی از یک فایل هست

با تشکر فراوان

[raravaice]

سلام

من که نفهمیدم منظوره شما چیه ولی حدس میزنم میخوای با ftp کار کنی و فایل آپلود کنی یا بگیری.

اگه درسته باید از کلاسهای :
System.Net.FtpWebRequest
System.Net.FtpWebResponse

استفاده کنی.

موفق باشید

[komail_sh]

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

متشکرم از توجه شما

[raravaice]

منظور شما از سرور چه نوع سروریه!

شبکه داخلی که یه درایو share داره؟
یا وب سرور؟
یا ...
در کل شما از چه طریقی به سرور دسترسی دارید؟

چرا جای کپی پوشه اونو create نمیکنید؟

چه مشکلی با کپی پوشه ها وجود داره؟

موفق باشید

[komail_sh]

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

ممنون از توجه شما

[raravaice]

شما باید یه پوشه همنام با مبدا در مقصد create کنی و فایلها رو انتقال بدی چیزی به نام کپی پوشه من تا حالا توی io.directory ندیدم مگر اینکه از move استفاده کنی که اونم مطمئنن به کار شما نمیاد.
اگر از io.directory استفاده میکنی وگرنه که بگید از چه کلاسی استفاده میکنید و مشکل دقیقا چیه؟!

موفق باشید

[komail_sh]

حالا اومدیمو توی اون فولدر یه فولدر دیگه بود اونوقت چی؟
منم توی io.directory پیدا نکردم ولی بایدیه ابزاری باشه که این کارو بکنه

[raravaice]

اینو ببین



Public Function CopyDirectory(ByVal Src As String, ByVal Dest As String, Optional _
ByVal bQuiet As Boolean = False) As Boolean
If Not Directory.Exists(Src) Then
Throw New DirectoryNotFoundException("The directory " & Src & " does not exists")
End If
If Directory.Exists(Dest) AndAlso Not bQuiet Then
If MessageBox.Show("directory " & Dest & " already exists." & vbCrLf & _
"If you continue, any files with the same name will be overwritten", _
"Continue?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2) = DialogResult.Cancel Then Exit Function
End If

'add Directory Seperator Character (\) for the string concatenation shown later
If Dest.Substring(Dest.Length - 1, 1) <> Path.DirectorySeparatorChar Then
Dest += Path.DirectorySeparatorChar
End If
If Not Directory.Exists(Dest) Then Directory.CreateDirectory(Dest)
Dim Files As String()
Files = Directory.GetFileSystemEntries(Src)
Dim element As String
For Each element In Files
If Directory.Exists(element) Then
'if the current FileSystemEntry is a directory,
'call this function recursively
CopyDirectory(element, Dest & Path.GetFileName(element), True)
Else
'the current FileSystemEntry is a file so just copy it
File.Copy(element, Dest & Path.GetFileName(element), True)
End If
Next
Return True
End Function

'Example usage:
Private Sub cmdCopyDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles cmdCopyDir.Click
If CopyDirectory("D:\somePath", "C:\someOtherPath") Then
MessageBox.Show("Success copying directory")
Else
MessageBox.Show("Error copying directory")
End If
End Sub


بر گرفته از
http://www.vbdotnetforums.com/showthread.php?t=1721
موفق باشید

[komail_sh]

میشه بگید از چه کلاسی استفاده کردید؟

[raravaice]

میشه بگید از چه کلاسی استفاده کردید؟

منظور شما رو نمیفهمم!!!!

system.io

[komail_sh]

خیلی عالی بود کار کرد
مرسی مرسی مرسی مرسی مرسی مرسی مرسی مرسی مرسی مرسی