Form Open If File Name

[DMT Dave]

Hi Guy's

How can i loop through a folder on form open to check file names of all files in the folder, lets say something like:

34 files called:
PO-123.pdf
PO-456.pdf
PO-112.pdf Job Completed
PO-324.pdf
PO-246.pdf Job Completed
PO-367.pdf
PO-732.pdf Job Completed


etc etc..

If any files are called job completed

Move these 3 files to back up folder ?

Thank you

[June7]

Something like:

Private Sub Form_Load()
    Dim strFile As String
    strFile = Dir("C:\some path\*.pdf")
    Do While strFile <> ""
        If strFile LIKE "*Completed" Then
            Name strFile As "drive\path" & Mid(strFile, InStrRev(strFile, "\"))
        End If
        strFile = Dir
    Loop
End Sub

[NoellaG]

Hi,

to loop through the files in a folder you can use the Dir function:

 strFile = Dir(strfolder & "\PO*.pdf")
    Do While Len(strFile) > 0 
        [here you can test on the indication Job completed and move the file if job completed]
        strFile = Dir()
   Loop

To move/rename the file you can use the Scripting.FileSystemObject. Example strFile = path + name of existing file, strLoc = new path + filename:

Public Function MoveFile(strFile As String, strLoc As String) As Boolean
On Error GoTo Err_MoveFile


  Dim fsoImport As Object
  Dim floImportFile As Object
  
  Set fsoImport = CreateObject("Scripting.FileSystemObject")
  Set floImportFile = fsoImport.GetFile(strFile)
  If strFile <> strLoc Then
    floImportFile.Move strLoc
  End If
  MoveFile = True


Exit_MoveFile:
    Set fsoImport = Nothing
    Set floImportFile = Nothing
    Exit Function
    
Err_MoveFile:
    MoveFile = False
    Debug.Print Err.Number & ": " & Err.Description
    Resume Exit_MoveFile


End Function

[DMT Dave]

Thank you for your replies, all done