Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Hello,
i found some code that works so neat, i just need to reconcile one (1) thing. i like to have this code to provide the correct hyperlink addresses along Col A. ------- Sub getdates() Folder = "C:\temp" Set fso = CreateObject _ ("Scripting.FileSystemObject") Set Folder = _ fso.GetFolder(Folder) RowNumber = 1 'folder size in bytes On Error GoTo 200 For Each fl In Folder.Files Sheets(1).Cells(RowNumber, "C") = fl.DateLastModified Sheets(1).Cells(RowNumber, "B") = fl.Size Sheets(1).Cells(RowNumber, "A") = strFolder & fl.Name RowNumber = RowNumber + 1 Next fl 200 On Error GoTo 0 End Sub --------- e.g folder = c:\temp file inside = book1.xls thus i need in col A to have a hyperlink address something like c:\temp\book1.xls. the resulting hyperlink address i have is c:\tempbook1.xls thus pop-up says that "Cannot open the specified file" because of a missing "\" hope it is very simple for a column of filenames growing in a daily basis. -- regards |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Solution to Lists Problem | Excel Discussion (Misc queries) | |||
OLD PROBLEM without SOLUTION | Excel Worksheet Functions | |||
Need A Solution To A Problem | Excel Discussion (Misc queries) | |||
Problem with formula/doesn't pull data with slash (/) | Excel Discussion (Misc queries) | |||
sum if problem, trying to find best solution | Excel Discussion (Misc queries) |