Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > อัพโหลดแล้วเปลี่ยนชื่อไฟล์ตามเราต้องการทำไงครับ

อัพโหลดแล้วเปลี่ยนชื่อไฟล์ตามเราต้องการทำไงครับ

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

Guest

รบกวนสุดท้ายแล้วครับ( แต่ไม่แน่ อาจจะมีอีกนิด)

ต่อเนื่องจากกระทู้ก่อนนู้นนะครับ ที่จะให้ import file จากtextfile
คือว่าตอนนี้ผมให้มัน import ได้แล้ว
แต่มีปัญหาตรงที่ว่า อยากจะให้เลือกไฟล์ที่ต้องการ import แล้วอัพโหลดไว้ใน folder ของโปรแกรม
แล้วให้โปรแกรมทำการ import ข้อมูลลง access จากนั้นให้ลบทิ้ง เพราะว่าตอนเขียนผมตั้งไว้แบบนี้

set fs = CreateObject("Scripting.FileSystemObject")
Set op = fs.OpenTextFile(Server.Mappath("data.txt"))

คือให้มันอ่านไฟล์ text ที่ชื่อ data
จึงอยากจะให้เปลี่ยนชื่อไฟล์เป็น data.txt ก่อน
จากนั้นจึงค่อยอ่าน text file

ผมมีโค้ดอัพโหลดดังนี้ครับ

filename = uploaddata.item("blob").item("filename")
pos_filebegin = InStrRev(filename,"\")
pos_fileend = Len(filename)
filename_new = Mid(filename,pos_filebegin+1,pos_fileend - pos_filebegin)
set fs = Server.CreateObject("Scripting.FileSystemObject")
set uploadfile = fs.CreateTextFile(Server.MapPath("file/"&filename_new))
uploadfile.write uploaddata.Item("blob").Item("value")
uploadfile.close

filename_new="file\"&filename_new

อยากจะทราบว่า จะต้องใส่โค้ดอะไรให้เปลี่ยนชื่อไฟล์ครับ
แล้วจะลบไฟล์นั้นทิ้งนี่ ต้องเขียนยังไง

หรือคุณ @w_in มีวิธีอะไรดีๆกว่านี้ ก็ช่วยแนะนำด้วยนะครับ (สุดท้ายแล้ว โปรเจคจะเสร็จแล้วครับ)

Tag : - - - -

Date : 16 ก.พ. 2548 15:05:16

By : gototon

View : 2896

Reply : 2

No. 1

TC Admin

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

สำหรับการป้องกันไฟล์ซ้ำให้ใช้พวกวันที่หรือเวลาเข้ามาช่วยครับ
เช่น
TimeNow=Replace(Time, ":", "") จะได้รูปแบบ 15:09:00 แทนที่แล้วจะได้ 150900
ให้นำมารวมกับชื่อไฟล์

filename_new="file\"&TimeNow&"_"&filename_new

สำหรับการลบไฟล์ให้ใช้คำสั่ง

Date : 16 ก.พ. 2548 15:12:26

By : @W_IN

No. 2

gototon

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

คือ จริงๆแล้วอยากจะให้มัน rename ให้เป็นชื่อเดียวกันไปเลยอ่ะครับ
แบบว่า
ขั้นตอนที่ 1 อัพโหลดไฟล์ จากไฟล์ชื่ออะไรก็ได้
2 อัพโหลดแล้วให้เปลี่ยนชื่อไฟล์ เป็นชื่อ data.txt เท่านั้น
3 ทำการ import ไฟล์ txt ลงใน access
4 หลังจาก import แล้ว ให้ลบไฟล์ data.txt ทิ้ง เพื่อที่ครั้งต่อไปไฟล์จะได้ไม่ทับกันครับ

เนื่องจากทีแรกผมเขียนโค้ดให้อ่าน ไฟล์ txt เป็นแบบนี้ครับ

set fs = CreateObject("Scripting.FileSystemObject")
Set op = fs.OpenTextFile (Server.Mappath("data.txt"))

ขอบคุณอีกครั้งครับ

Date : 16 ก.พ. 2548 16:59:49

By : gototon

ค้นหาข้อมูล

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

Re : อัพโหลดแล้วเปลี่ยนชื่อไฟล์ตามเราต้องการทำไงครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00