ลบไฟล์ที่เลือก



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

24 ส.ค. 61 , 16:06:40
อ่าน 612 ครั้ง

kitisak

ลบไฟล์ที่เลือก
« เมื่อ: 24 ส.ค. 61 , 16:06:40 »
เราจะลบไฟล์จากไดอะล็อกบ๊อกซ์ ที่เราสร้าง จะทำอย่างไรครับ

 

27 ส.ค. 61 , 13:17:51
ตอบกลับ #1

สันติสุข

: ลบไฟล์ที่เลือก
« ตอบกลับ #1 เมื่อ: 27 ส.ค. 61 , 13:17:51 »
รายละเอียดเพิ่มเติมด้วยครับ ไดอะล็อกบ๊อกซ์มาจากไหน เกี่ยวกับอะไร โค้ดที่ใช้คืออะไร และลบไฟล์ ณ ขั้นตอนไหน ลบในตัวไดอะล็อกบ๊อกซ์เองเลย หรือมาลบที่ไหน
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

29 ส.ค. 61 , 13:37:06
ตอบกลับ #2

kitisak

: ลบไฟล์ที่เลือก
« ตอบกลับ #2 เมื่อ: 29 ส.ค. 61 , 13:37:06 »
เป็นโค๊ตที่ อาจารย์ปิ่นณรงค์ ให้มา พอ copy เสร็จผมต้องการลบไฟล์เดิมครับ
Private Sub Command13_Click()
Call Copy
End Sub
Private Sub Import_Click()
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = filename(f.SelectedItems(i), sPath)
        Me.GetFileName = sFile
        Me.GetFilePath = sPath
    Next
End If
End Sub
Sub Copy()
Dim sPath, sfilename, sLink, Snow, sCopyInto, myOutput As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Snow = Now
Snow = Format(Date, "YYYYMMDD")
sfilename = GetFileName
myOutput = Right(sfilename, Len(sfilename) - InStrRev(sfilename, "."))
sPath = GetFilePath
sLink = sPath & sfilename
sCopyInto = "D:\iDoc\" & Me.NewName & Snow & "." & myOutput
fso.CopyFile sLink, sCopyInto
Set fso = Nothing
End Sub
Public Function filename(ByVal strPath As String, sPath) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function

 

29 ส.ค. 61 , 15:28:36
ตอบกลับ #3

ปิ่นณรงค์

: ลบไฟล์ที่เลือก
« ตอบกลับ #3 เมื่อ: 29 ส.ค. 61 , 15:28:36 »
เพิ่มเป็นแบบนี้นะครับ
เวลาคุณกดบันทึกไฟล์ มันจะลบไฟล์เก่าต้นทางทิ้ง

Private Sub Command13_Click()
Call Copy
End Sub
Private Sub Import_Click()
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
f.Filters.Clear
f.Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png"
If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = filename(f.SelectedItems(i), sPath)
        Me.GetFileName = sFile
        Me.GetFilePath = sPath
    Next
End If
End Sub

Sub Copy()
Dim sPath, sfilename, sLink, Snow, sCopyInto, myOutput As String
Dim fso As Object
Dim DeletePath As String

Set fso = CreateObject("Scripting.FileSystemObject")
Snow = Now
Snow = Format(Date, "YYYYMMDD")
sfilename = GetFileName
myOutput = Right(sfilename, Len(sfilename) - InStrRev(sfilename, "."))
sPath = GetFilePath
sLink = sPath & sfilename
sCopyInto = "D:\iDoc\" & Me.NewName & Snow & "." & myOutput
fso.CopyFile sLink, sCopyInto


    DeletePath = GetFilePath & GetFileName
    If fso.FileExists(DeletePath) Then
        fso.DeleteFile DeletePath
    End If


Set fso = Nothing
End Sub
Public Function filename(ByVal strPath As String, sPath) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak


บอร์ดเรียนรู้ Access สำหรับคนไทย