Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > VB.Net อัพโหลดไฟล์ทั้ง folder ลง Server ได้ไหมค่ะ ถ้าทำได้ขอตัวอย่างโค้ดได้ไหมค่ะ เหรอคำแนะนำก็ได้

[.NET] VB.Net อัพโหลดไฟล์ทั้ง folder ลง Server ได้ไหมค่ะ ถ้าทำได้ขอตัวอย่างโค้ดได้ไหมค่ะ เหรอคำแนะนำก็ได้

เริ่มหัวข้อใหม่

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ถ้าทำได้ขอตัวอย่างโค้ดได้ไหมค่ะ เหรอคำแนะนำก็ได้ ค่ะ ขอบคุณค่ะ

Tag : .NET, VB.NET

Date : 2010-12-23 10:28:27

By : phukana

View : 1765

Reply : 33

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Upload ผ่านอะไรครับ FTP หรือเปล่าครับ หรือว่าใช้ ASP.NET ครับ

Date : 2010-12-23 13:46:40

By : webmaster

No. 2

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ไม่ค่อยรู้เรื่องอ่าค่ะ เป็นโปรเจ็คฝึกงาน เพิ่งเขียน vb.net ครั้งแรกด้วย ไม่แน่ใจเหมือนกัน แต่เขียนกับ vb.net ค่ะ

ช่วยแนะนำหน่อยนะค่ะ

Date : 2010-12-23 13:52:03

By : phukana

No. 3

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

Code (VB.NET)

Dim dInfo As New DirectoryInfo("c:\temp4")
Dim filelist As FileInfo() = dInfo.GetFiles()
Dim i As Integer
For i = 0 To filelist.Length() - 1
filelist(i).CopyTo("c:\temp1\" + filelist(i).Name)
Next

อย่างนี้ได้ป่าว

Date : 2010-12-23 14:02:12

By : EucifeR

No. 4

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

รูปแบบ ก้จะเป็นแบบนี่อ่าค่ะ คือสามารถเลือกได้ว่าจะอัพเฉพาะไฟล์เหรอทั้ง folder อัพเฉพาะไฟล์ทำได้แล้วค่ะ ขาดแต่ อัพทั้ง folder ค่ะ

ช่วยด้วยนะ

Date : 2010-12-23 14:02:54

By : phukana

No. 5

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

จะลองทำตาม EucifeR ดูนะค่ะ

Date : 2010-12-23 14:03:51

By : phukana

No. 6

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ลองทำตาม คุน EucifeR ดูแล้วค่ะ ขึ้น error DirectoryInfo และ FileInfo() ไม่รู้เป็นเพราะ นู๋ใช้ vs 2005 ป่าวค่ะ

ต้องแก้ยังไง อ่าค่ะ

Date : 2010-12-23 14:10:01

By : phukana

No. 7

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

เปลี่ยน ต้นทาง กับ ปลายทางก่อนนะครับ จะดัดแปลงเป็นให้เลือกก็เเล้วเเต่สะดวก เเต่ถ้าเอาของผมไปทั้งดุ้น มันก็ Error นะครับ อิอิ
Code (VB.NET)

Dim dInfo As New DirectoryInfo("c:\temp4")  <--- แก้ต้นทาง
Dim filelist As FileInfo() = dInfo.GetFiles()
Dim i As Integer
For i = 0 To filelist.Length() - 1
filelist(i).CopyTo("c:\temp1\" + filelist(i).Name) <--- แก้ปลายทาง
Next

Date : 2010-12-23 14:15:20

By : EucifeR

No. 8

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

project นี้มีสองส่วน
1. account management การกำหนดสิทธ์ของบุคคลและการเข้าถึงทรัพยากรของระบบ
ในกรณีนี้คือ ไฟล์และโฟลเดอร์ที่จัดเก็บไว้
2. file server ซึ่งจะจัดเก็บไฟล์ลง folder จริงๆ หรือจะทำ folder เสมือนแต่จัดเก็บลงในฐานข้อมุลก็ได้

เป็นงาน client - server ขึ้นอยู่กับว่าคุณจะเขียนเป็น win app หรือ web app
ส่วนตัวมองว่าเขียนด้วย asp.net จะง่ายกว่า
เพราะถ้าเขียนด้วย win app ต้องใช้ socket เพื่อ load file ผ่าน network stream
เพื่อจะได้จัดการ folder และสิทธิ์ในการเข้าถึงได้เองไม่ต้องไปแชร์ข้ามเครือข่าย

เห็นถามว่าจะเขียนยังไง ก่อนจะเขียนจะต้องวิเคราะห์งานก่อนเสมอค่ะ
ไม่งั้นก็ amazing code หาทางขึ้นลงไม่เจอสะที
ถ้าเป็นโจทย์ฝึกงานก้อพยายามเข้านะคะ

ประวัติการแก้ไข
2010-12-23 14:21:08
2010-12-23 14:21:46

Date : 2010-12-23 14:18:43

By : blurEyes

No. 9

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ขึ้นแบบนี้อ่า ไม่รุ เพราะไม่รู้จักคำสั่งนั้นหรือ เพราะนู๋ใช้ vs2005 ไม่รู้เกี่ยวกันป่าว ค่ะ

Date : 2010-12-23 14:27:10

By : phukana

No. 10

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ดีค่ะ คุณ blurEyes ขอบคุณมากค่ะสำหรับคำแนะนำ โจทย์ฝึกงานแต่ต้องนำมาใช้งานจริง อ่าค่ะ เครียดมากมายเพิ่งเขียน vb ครั้งแรกด้วย

T_T"

Date : 2010-12-23 14:30:36

By : phukana

No. 11

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

ใส่บนหัวสุด

Imports System.IO.File

น่าจะใช่ จำไม่ค่อยได้เเหะ ขออภัยครับ

Date : 2010-12-23 14:31:56

By : EucifeR

No. 12

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

ไม่ต้องเครียดครับ VB คือความสะดวกสบายที่ทาง Microsoft มอบให้ 555 มีบทความในเน็ตเยอะเเยะครับ Google ช่วยท่านได้ เเต่ถ้าท่านเข้าใจนะ

Date : 2010-12-23 14:33:58

By : EucifeR

No. 13

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

อิอิ เข้าใจ ค่ะ แต่ทำไม่ได้ แต่ ตั้งใจซะอย่าง จากที่ขนาดประกาศตัวแปลไม่เป็นเรียนรู้ด้วยตัวเองจนสามารถเขียนได้ก็ดีใจแล้วค่ะ เพราะที่มหาลัยไม่ได้สอน vb ด้วย ก้เรยเศร้า ค่ะ

Date : 2010-12-23 14:37:46

By : phukana

No. 14

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

error แบบนี้อ่า ไม่รู้ผิดตรงไหน ป่าว

Date : 2010-12-23 15:24:40

By : phukana

No. 15

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

มองไม่เห็นนะครับ

Date : 2010-12-23 15:31:44

By : EucifeR

No. 16

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

อันนี้อ่า ค่ะ ประยุกต์เองด้วย

Date : 2010-12-23 16:00:50

By : phukana

No. 17

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

มันบอกว่า acc.jpg มีอยู่เเล้ว

Date : 2010-12-23 16:08:46

By : EucifeR

No. 18

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

อายจัง อิอิ

Date : 2010-12-23 16:12:47

By : phukana

No. 19

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

เอ่อ เราไม่กำหนดต้นทางได้ไหมค่ะ แบบให้ user เลือกเอง อ่าค่ะ ว่าจะอัพจากไหน กด browse แล้วสามารถเลือก folder ได้เอง อ่าค่ะ

Date : 2010-12-23 16:17:33

By : phukana

No. 20

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

อะนะ

Date : 2010-12-23 16:17:42

By : EucifeR

No. 21

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

อันนั้นเราก็ให้เลือกก็ได้นะครับ เเล้วให้เอาค่ามาใส่เเทนที่จะกำหนดไปเลยนะ

อย่างเช่น Dim dInfo As New DirectoryInfo(textbox_path.text)

Date : 2010-12-23 16:20:03

By : EucifeR

No. 22

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ไม่ว่าจะอัพไฟล์ไหน ก้ขึ้น error เดียวกันหมดเรย อ่า
นี่อัพ
D:\phuka\pic_a\รูปแบบ.jpg ก้ขึ้นเหมือน กัน นู๋คงต้องลองผิดลองถูกอีกเยอะ อ่า T_T

Date : 2010-12-23 16:24:39

By : phukana

No. 23

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

เดี๋ยวกลับไปทำที่บ้านก่อน ที่ทำงานไม่มีโปรแกรมที่จะทำได้เลย ได้รึไม่ได้เดี๋ยวมาบอกครับ

Date : 2010-12-23 16:36:25

By : EucifeR

No. 24

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

Quote:
อันนั้นเราก็ให้เลือกก็ได้นะครับ เเล้วให้เอาค่ามาใส่เเทนที่จะกำหนดไปเลยนะ

อย่างเช่น Dim dInfo As New DirectoryInfo(textbox_path.text)

textbox_path คือ รัยอ่าค่ะ ได้มาจากไหน อ่า ขอโทดจิง นะ รบกวนคุณมากเรย

Date : 2010-12-23 16:41:57

By : phukana

No. 25

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

Code (VB.NET)

Protected Sub btn_upfolder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_upfolder.Click
        Call newsql()
        Dim Prompt As String = "เลือกไฟล์ที่ต้องการอัพโหลด!"
        Dim Prompt1 As String = "อัพโหลดเรียบร้อยแล้ว!"
        Dim xname As String = folder_up.FileName
        Dim xpath As String = Server.MapPath("testup/" & folder_up.FileName)
        Dim dInfo As New IO.DirectoryInfo("xpath.text")
        Dim filelist As IO.FileInfo() = dInfo.GetFiles()
        If Me.folder_up.HasFile = False Then
            MsgBox(Prompt, , "Information")
        Else
            Dim i As Integer
            For i = 0 To filelist.Length() - 1
                filelist(i).CopyTo("D:\cashier\testup\" & filelist(i).Name)
                Me.folder_up.SaveAs(Server.MapPath("testup/" & folder_up.FileName))
            Next
            MsgBox(Prompt1, , "Information")
        End If
 
    End Sub

โค้ดที่เขียนค่ะ

Date : 2010-12-23 16:51:25

By : phukana

No. 26

Shadow[L]

โพสกระทู้ ( 242 )
บทความ ( 0 )

Code (VB.NET)

Imports System.IO
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dInfo As New DirectoryInfo(TextBox1.Text)  'เรียกพาทขึ้นมาจากการกดเลือก
        Dim filelist As FileInfo() = dInfo.GetFiles()
        Dim i As Integer
        For i = 0 To filelist.Length() - 1
            filelist(i).CopyTo(TextBox2.Text + "\" + filelist(i).Name) 'ส่วนนี้ต้องมี \ เพื่อให้มันเข้าไปในโฟรเดอร์ของเราไม่งั้นมันจะไม่เข้า
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim t As Type = GetType(Environment.SpecialFolder) 'เลือก FolderBrowserDialog จาก ToolBox มาใส่ จะได้เลือกเป็นพาท
        With FolderBrowserDialog1
            If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                TextBox1.Text = .SelectedPath 'เลือกเเล้วเอามาใส่ใน TextBox1 ซึ่งเป็นต้นทาง
            End If
        End With
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim t As Type = GetType(Environment.SpecialFolder)
        With FolderBrowserDialog1
            If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                TextBox2.Text = .SelectedPath 'เลือกเเล้วเอามาใส่ใน TextBox1 ซึ่งเป็นปลายทาง
            End If
        End With
    End Sub
End Class 'เเค่นี้ผ่านฉลุย ทดลองเเล้ว

อันนี้ที่ไปทำมานะ ผ่านฉลุย

Date : 2010-12-24 08:09:17

By : EucifeR

No. 27

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

นู๋ต้องขอโทษ คุณ EucifeR คือ นู๋ได้ลองทำโค้ดของคุณแล้วค่ะ จากการที่ลองหนูหา FolderBrowserDialog1 ไม่เจอ สอบถามไปถามมา เพิ่งรู้ว่า นู๋เขียนกับ asp.net คือฝึกงานจะจบแล้วเพิ่งรู้เหมือนกันค่ะ เข้าใจมาตลอดว่าเป็น vb เพราะตอนที่ เลือกตอนแรก เลือกเป็น vb แล้วลองถามพี่เค้าดูพี่เค้าบอกว่า เป็น asp.net แต่เขียน กับ vb นู๋งง เรยค่ะ นู๋เข้าใจอะรัยผิด เปล่า

ขอโทษคุณ EucifeR เป็นเพราะความไม่รู้ ของนู๋เองค่ะ ถึงตอนนี้ก็ยัง งงๆ เรยค่ะ

Date : 2010-12-24 09:44:45

By : phukana

No. 28

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

อะนะคะพี่น้องลากกันไปทางไหนมะรุ
คนพี่ดู screen shot ละยังพาไปเขียน แบบ stand alone อีกนะคะ
ไปสมัครสมาชิกสะค่ะ จะได้ส่งทาง pm ให้
มี code ในหนังสือให้แกะอยู่เรื่องนี้แหละ
เอาไป modify ก็โอละ

เฮ้อ - -"

ปล. file server ปกติจะจัดเก็บในฐานข้อมูลเอาค่ะไม่เอามาวางไว้ที่ physical path

ประวัติการแก้ไข
2010-12-24 09:56:35

Date : 2010-12-24 09:53:08

By : blurEyes

No. 29

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

นู๋สมัคร แล้วนี่ ค่ะ

Date : 2010-12-24 09:56:29

By : phukana

No. 30

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

อยู่ที่ PM ค่ะไปโหลดเอา

Date : 2010-12-24 10:15:09

By : blurEyes

No. 31

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ขอบคุณมากๆ นะค่ะ แล้วจะไม่ลืมพระคุณ ค่ะ

Date : 2010-12-24 10:26:51

By : phukana

No. 32

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

ไม่ลืมไม่มีหรอกค่ะ มีแต่ลืมช้าหรือลืมเร็วเท่านั้นแหละ

Date : 2010-12-24 10:46:28

By : blurEyes

No. 33

phukana

โพสกระทู้ ( 43 )
บทความ ( 0 )

ซะงั้น

Date : 2010-12-24 10:48:54

By : phukana

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : VB.Net อัพโหลดไฟล์ทั้ง folder ลง Server ได้ไหมค่ะ ถ้าทำได้ขอตัวอย่างโค้ดได้ไหมค่ะ เหรอคำแนะนำก็ได้

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

No. 15

No. 16

No. 17

No. 18

No. 19

No. 20

No. 21

No. 22

No. 23

No. 24

No. 25

No. 26

No. 27

No. 28

No. 29

No. 30

No. 31

No. 32

No. 33

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice