2
« เมื่อ: 18 ส.ค. 61 , 18:03:25 »
ในโฟลเดอร์Pictureจะมีรูปเยอะอยู่แล้ว ติดตรงที่กล้องที่ถ่ายจะบันทึกชื่อไฟล์ซ้ำกับรูปที่เคยมี
ผมเลยกำหนดให้กล้องสร้างโฟลเดอร์ขึ้นมาไว้ในโฟลเดอร์Picture โดยจะตั้งอัตโนมัติเป็นปีเดือนวัน เช่น 2018-8-18
ผมจะแก้ยังไงดีครับ โดยโค้ดที่ใช้อยู่ในปัจจุบันคือ
Option Compare Database
Option Explicit
Public Function iFileDialog() As String
Const msoFileDialogFilePicker = 3
Const msoFileDialogViewDetails = 2
Dim fd As Object, varltems As Variant, flPath As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Choose"
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "Image", "*.jpg;*.png;*.bmp"
.Filters.Add "All Files", "*.*"
.filterIndex = 1
.InitialfileName = CurrentProject.Path & "\Picture"
If fd.show = True Then
iFileDialog = Trim(.SelectedItems.Item(1))
End If
End With
End Function
ขอบคุณครับ