objfile

Hi, I currently have the below code to pull a list from a file path every time the worksheet is activated. Sub worksheet_Activate() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder =...

I do not know if this is possible but basically I would like to have the spreadsheet check a folder, then return excel file names and whether the document is signed. I've tried a few things that don't seem to work. First I wrote this code to list all files within the folder: Sub Test()...

Hi, I have cobbled together the following code which works. The problem I have is that I need the file search to extend to the subfolders within the selected folder. Can anyone help? Function picInsert(folder As String, articleCode As String, material As String, colour As String, row As...

Hi I am using BrowseForFolder to Select Folders. The code works fine but everytime I click the "Cancel" Button an Error occurs. Here is the code: Dim objShell Dim strFileName Dim strFilePath Dim objFile Set objShell = CreateObject("Shell.Application") Set objFile = objShell.BrowseForFolder(0...

hi I have a the following Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder("C:\file loction\find") i...

I have a VBA script that cycles through subfolders looking for a specified file. Often, there are subfolders to which I do not have access. My script ends with a "permission denied" error. Is there something I can add to my code that will check permissions on a folder before attempt to access...

Hello, Please can some adapt the below code to allow the files to run through sub folders? Sub Example1() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Sheet2.Activate 'Create an instance of the FileSystemObject Set objFSO =...

This is the code i'm using now and its working perfect, the one thing it doesnt do it check for the file type. the only thing i want it to bring the file name in for is *.xls* i dont see where to edit the code to have that check. :/ Sub FileHyperlinks() Dim objFSO As Object Dim objFolder As...

Hi All, I've a PDF file. I'm opening it through the below code. Before closing it, I wish to rename/Saveas the file with a different name (Lets say 'ABC.PDF). Can anyone help. Dim lMyNewNum As Long Dim strTest As String Dim XLName As String, PDFPath As String, READERPath As String...

I found this code on the Internet. It creates a file list in excel with hyperlinks to files in a folder. It works perfectly. I need the code edited to create a file list of a directory and its subdirectories. I played with the path line but I couldn't figure it out. Can somebody edit this...