i need solution

Question

hi I use VBA and many time there is an erreor (75) showing about path\file
I canot solve it so ineed the solution .
the code I write is :

Dim i As String
i = TextBox1.Text
FileCopy fpath, "C:\Picture\" & i & ".jpg"

when I run the sub its show to me an error (75).

thanks

Answer 1

I use Microsoft Scripting Runtime when working with files

Option Explicit

Sub CopyFile()
  Dim iPath As String
  Dim oPath As String
  Dim fso As New FileSystemObject 'Add reference to Microsoft Scripting Runtime'

  If fso.FileExists(iPath) Then
    If Not fso.FileExists(oPath) Then
      fso.CopyFile iPath, oPath
    Else
      Call MsgBox("File Exists: " & oPath, vbOKOnly, "File Exists")
    End If
  Else
    Call MsgBox("File Missing: " & iPath, vbOKOnly, "File Missing")
  End If
End Sub

Answer 2

@Oscar Maqueda : why is your code better? It uses the same FileCopy function.
@judo skill : you may want to edit your post and enter a better subject. We all want solutions.