Kamayo Ako
Member
- Local time
- Today, 07:04
- Joined
- May 23, 2022
- Messages
- 92
Have a good day to all Master.
1. I have textbox which autofill after selecting the image from E:\Residents Images\My Pic.jpg
= No Issue with this process and i used below code to browse the images:
Private Sub Browse_Click()
Dim F As Object
Dim strfile As String
Dim strFolder As String
Dim varItem As Variant
Set F = Application.FileDialog(3)
F.AllowMultiSelect = True
If F.Show Then
For Each varItem In F.SelectedItems
strfile = Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strfile))
MsgBox "Folder" & strFolder & vbCrLf & _
"File: " & strfile
txtImageLocation = strFolder + strfile
Next
End If
Set F = Nothing
End Sub
2. Now I have button also the manage webcam.
- I have webcam Utility to call the installed webcam using below code:
Private Sub cmdCapture_Click()
Dim stAppName As String
stAppName = "C:\Program Files\WebCam Utility\WebCam.exe"
Call Shell(stAppName, 1)
End Sub
"NOW THIS IS THE MY CONCERN"
How i can i save the captured image with specific? (E:\Residents Images\)?
Thank you so much for you support.
1. I have textbox which autofill after selecting the image from E:\Residents Images\My Pic.jpg
= No Issue with this process and i used below code to browse the images:
Private Sub Browse_Click()
Dim F As Object
Dim strfile As String
Dim strFolder As String
Dim varItem As Variant
Set F = Application.FileDialog(3)
F.AllowMultiSelect = True
If F.Show Then
For Each varItem In F.SelectedItems
strfile = Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strfile))
MsgBox "Folder" & strFolder & vbCrLf & _
"File: " & strfile
txtImageLocation = strFolder + strfile
Next
End If
Set F = Nothing
End Sub
2. Now I have button also the manage webcam.
- I have webcam Utility to call the installed webcam using below code:
Private Sub cmdCapture_Click()
Dim stAppName As String
stAppName = "C:\Program Files\WebCam Utility\WebCam.exe"
Call Shell(stAppName, 1)
End Sub
"NOW THIS IS THE MY CONCERN"
How i can i save the captured image with specific? (E:\Residents Images\)?
Thank you so much for you support.