Bad File Name Or Number

[DMT Dave]

Hi Guy's i am trying to copy a jpg image from a camera SD card, and camFile is coming up with bad file name or number

When i hover over the debug line (in Bold) the camFile is DSC*.* and not the rest of the file name ?



I currently have an image called DSC00482 but the wildcard of *.* doesn't appear to work ?

If Me.cboImages = "From Camera" ThenCustName = Me.cboDealerIndex7
DriveSelect = Forms!frmMainMenu!cboDrive
CamPath = DriveSelect & "\DCIM\101MSDCF\"
CamFile = "DSC & *.*" IS WILDCARD CORRECT
Dest = "Collections"
AccPath = "T:\My Customer\DMT Images\" & Dest & "\" & CustName
imgPath = "T:\Images\" & Dest & "\" & CustName & "\"
If Dir(imgPath, vbDirectory) = "" Then
MkDir (imgPath)
Else
DoCmd.CancelEvent
End If
If Dir(AccPath, vbDirectory) = "" Then
MkDir (AccPath)
Else
DoCmd.CancelEvent
End If
NewName = CustName & "-" & Format(Now(), "dd-mm-yy") & ".jpg"
Name CamPath & CamFile As imgPath & NewName (camFile is bad file name or number)
'Clear Camera
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ObjFiles = FSO.GetFolder(CamPath).Files
imgQty = ObjFiles.Count
x = 1
Do Until CamFile = vbNullString
CamFile = Dir
x = x + 1
Loop
MsgBox ("Camera SD Card Is Now Empty, Please Remove SD Card From Computer"), vbInformation + vbOKOnly, "SD CARD NOW CLEAR"
End If

[Welshgasman]

Still not indenting code I see :-(

You do not say where you are hovering?, and you set camFile to that value yourself?

[Minty]

Your code says
CamFile = "DSC & *.*" IS WILDCARD CORRECT

Shouldn't that be
CamFile = "DSC" & "*.*"

[Welshgasman]

How are you deleting the images from the card as well?

[DMT Dave]

Hi, thank you and yes to all, it's the file name but after changing the wildcard, the filename still returns bad file name or number

I am testing step by step so the code in the image is meant to copy the file from SD Card to accPath then delete the file from SD Card

What my target is following that is

Open accPath And New FileName in msPaint (so i can resize the image)
manually save and close
attach to email

This is the debug line: (note i have scrubbed out Customer Folder on here)

[Minty]

Add a

Debug.Print  "File Name: " & CampPath & CamFile , "Target: " & imgPath & NewName

before the error line, and examine the contents.

BTW a picture of your code doesn't make for easy assistance. Copy paste and then redact by putting in xxxxx or similar.
Also the code as presented doesn't compile as there is an extra End IF at then end.

I'm not sure you can use a wildcard in a renaming action either.
Have you tried it on the command line or in the immediate window as a test?

[Welshgasman]

I think you need to use the DIR() function to walk through the folder and rename the files one at a time.?

[DMT Dave]

Hi Guy.s thank you, added the debug.Print line still highlights as image and what i should have mentioned, there is ever only 1 image to resize, email and relocate

Kindest

[Minty]

In the immediate window, what did the debug.print output display?
(Press ctrl + G to bring it up)

[DMT Dave]

Hi Minty, this is debug.Print in the immediate window (removed Customer name on here) Note: i have tried using fso to get file name but the file name on a msgbox is DSC*.* the same as the immediate window

File Name: DSC*.* Target: T:\Images\Collections\Dealer Name removed\Dealer Name Removed-13-07-21.jpg

here is the file in the folder

[Minty]

Your filename appear to be missing the full path, so that won't work.
Drive Select appears to not be getting set to anything. It should be

E:\DCIM\101MSDCF\

What happens if you simply hard code the names as a test ?

Name "E:\DCIM\101MSDCF\DSC*.*" as "T:\Images\Collections\Dealer Name removed\Dealer Name Removed-13-07-21.jpg"

[DMT Dave]

Ahh thanks Minty, i will give that a try

[DMT Dave]

Hi minty, the following line is coming up bad file name again (bearing in mind, the cboDealerIndex7 has got a CustName

NewName = CustName & "-" & Format(Now(), "dd-mm-yy") & ".jpg"
Debug.Print "File Name: " & CamPath & CamFile, "Target: " & imgPath & NewName
'Name CamPath & CamFile As imgPath & NewName
Name "E:\DCIM\101MSDCF\DSC*.*" As imgPath & NewName

[DMT Dave]

Whatever i change the CamFile to either:

DSC"*.*"

Or DSC & "*.jpg"

Or DSC & "*.*"

When i MsgBox The CamFile, it is exactly as the examples above

I just can't seem to return the filename in this case DSC00482.jpg

[Welshgasman]

You cannot use * with Name