Loop Through Files In A Folder Using VBA

[DocAElstein]

Another example
Just a practical example. .. I am curious to see if some files containing information about my drivers on a computer change when I install a simple HP Printer, ( HP 1050 ). ……._ Continued in next post.

[DocAElstein]

_.. continued from a post beforepost

This is post number 15732
Links to here
https://excelfox.com/forum/showthrea...ll=1#post15732
https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA?p=15633&viewfull=1#post15732
https://excelfox.com/forum/showthrea...ge2 #post15732
https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA/page2 #post15732

---

_... continued from last post
Another example
Just a practical example. .. I am curious to see if some files containing information about my drivers on a computer change when I install a simple HP Printer, ( HP 1050 ).
The difficulty in doing this is that I get a lot of files in various sub folders. A couple of things help me
_ The first is getting a tree like or “explorer” type view of the files. That is what my recursion macro does.

So, here we go again.
I make a new worksheet and make sure its active when I run the macro, so I still use Set Ws = ActiveSheet
I change the path appropriately to where I have copied the 2 folders which usually have a lot of files related to drivers ( By the way you usually find those two folders at somewhere like C:\Windows\System32 )

The next screen shot shows where I copied these 2 folders to. So the path I need to hard code into my macro is
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ Aug2021Vorhere
Poohs-Drivers-BeforePath.jpg
( I don’t need to concern myself about those extra 3 pics I have at that location, since my macro ignores files in the first instance, and only looks at folders there. ( As it goes into those 2 folders and any sub folders, then it will look for both folders and files ) )


Looking at the results, I see an enormous amount of files, and the results go over to about column G
PoohsDriversBeforeResults.JPG

We note that the tree like / explore like structure output starts at cell B3, as determined by this code line

Dim celTL As Range: Set celTL = Ws.Range("B3") 'Top left of where Listing should go

For this example I will use the same sheet, but now modify that code line to start at H3. Then on changing the path to F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install, I run the macro again to get the new results alongside the Before results. ( I also 'disabled the code line Ws.Range("B3:F30").ClearContents ' This line only needed for demo code
)

Results
At F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\drivers I have an extra
usbscan.sys

I then go a long way down in DriverStore to find this lot

F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4				hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0b b3ab9eb4
				HPScanMiniDrv_DJ1050_J410.INF
				hpscanminidrv_dj1050_j410.PNF
				HPScanMiniDrv_DJ1050_J410x32.CAT
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers					drivers
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scann er
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scann er\x32
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutra l_4dd0ab13ea43b845				hpvpl04.inf_x86_neutral_4dd0ab13ea43b845
				HPMACRONAMES.gpd
				hpvpl04.cat
				hpvpl04.inf
				hpvpl04.ini
				hpvpl04.PNF
				hp_deskjet_2050_04.gpd
				locale.gpd
				stdnames.gpd
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutra l_4dd0ab13ea43b845\i386					i386
					hpfime50.dll
					hpinkcoi8911.dll
					hpinksts8911.dll
					hpinksts8911LM.dll
					hpvpldrv04.dll
					hpvplres04.dll
					hpvplui04.dll
					unidrv.dll
					unidrv.hlp
					unidrvui.dll
					unires.dll

Worksheet: FirstPetraPoohWin7

---

‘wbCodesDriversDruckerFromPoohFirstPetraRotWin7S tarter.xlsm’ https://app.box.com/s/k9hqq3mq7972kcucn428ghcd4gciquhn

---

Transgression Vamp
I am wondering at this point if I might like to see all the files in some way in a forum post. A table is going to be very big. Putting it in a code window will help to get the scroll bars, but I expect it will still be way to big.
A simple text file is probably as best you can get. This looses no ease of visibility in the vertical because a line feed is a line feed.
The horizontal is a problem. Lets look at ways to get over that
Here are some interesting ideas to get over the problem of a typical forum editor “eating” spaces more than 1
http://www.eileenslounge.com/viewtopic.php?f=26&t=22603 - But that in itself produces a lot of extra text.
A nice coincidence associated with how Excel uses the clipboard gives us another possibility:
( Once again the vertical is not an issue. Mostly in computing we use the traditional “invisible” characters in a text string which historically were needed to tell a printer to feed another line ( Line Feed , vbLf ) and to make the printing carriage return to the left ( Carriage Return, vbCr ) )
When Excel copies to the clipboard, an Excel Clipboard appears to store links allowing a subsequent paste to transfer all formatting from a cell, but also, interesting to us, a windows clipboard holds
_ the values,
_the two characters to indicate a new line ( vbCr & vbLf )
_ and, most useful to us, a “cell wall” or cell separator is indicated by another “invisible” character , the tab ( vbTab )

............................................._

[DocAElstein]

This is post number 16536
Links to here
https://excelfox.com/forum/showthrea...ll=1#post16536
https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA?p=15633&viewfull=1#post16536
https://excelfox.com/forum/showthrea...age2#post16536
https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA/page2#post16536

_................................................


I am wondering at this point if I might like to see all the files in some way in a forum post. A table is going to be very big. Putting it in a code window will help to get the scroll bars, but I expect it will still be way to big.
A simple text file is probably as best you can get. This looses no ease of visibility in the vertical because a line feed is a line feed.
The horizontal is a problem. Lets look at ways to get over that
Here are some interesting ideas to get over the problem of a typical forum editor “eating” spaces more than 1
http://www.eileenslounge.com/viewtopic.php?f=26&t=22603 - But that in itself produces a lot of extra text.
A nice coincidence associated with how Excel uses the clipboard gives us another possibility:
( Once again the vertical is not an issue. Mostly in computing we use the traditional “invisible” characters in a text string which historically were needed to tell a printer to feed another line ( Line Feed , vbLf ) and to make the printing carriage return to the left ( Carriage Return, vbCr ) )
When Excel copies to the clipboard, an Excel Clipboard appears to store links allowing a subsequent paste to transfer all formatting from a cell, but also, interesting to us, a windows clipboard holds
_ the values,
_the two characters to indicate a new line ( vbCr & vbLf )
_ and, most useful to us, a “cell wall” or cell separator is indicated by another “invisible” character , the tab ( vbTab )


We can clarify and demo all that with a simple macro example.
The following macro at line number 1, selects an arbitrary 3 row, 2 column range.
That range can be filed or empty, but for the sake of this demo, a line after the selection, line number 2 puts some arbitrary text info in, which is the item number of the cell , relative to the top left cell of the range. ( If that Item stuff confuses you, or does not work , then just 'comment out all the lines up to and including line 2, and the demo will continue for empty cells. )

The macro then does a .Copy in line 3
As far as I can tell, that .Copy , does 3 things related to the clipboard(s)
_(i) Excel Clipboard info is made/ held , related to linking to the cells to allow Excel pasting ( .PasteSpecial ), options to allow all formatting of cells to be copied within Excel
_(ii) Office Clipboard info is either doing a restricted version of what (i) does, or possibly stores a lot of information, allowing some of the formatting to be copied into other Office applications ,- a typical example would be allowing an Excel spreadsheet range, to be copied into Word as a table having similar looking table like formatting.
_(ii) The Windows Clipboard, what we are interested in, will be a simple text of both or cells values and the discussed “invisible” characters which help us to determine the row and column , or cell, to which the values come from.

Depending on how and where you view the returned text , ( which is in variable TxtOut ) , you may see some structured table like formatting such as this:

 Rng_Item(1, 1) and Rng_Item( 1 )    Rng_Item(1, 2) and Rng_Item( 2 )
 Rng_Item(2, 1) and Rng_Item( 3 )    Rng_Item(2, 2) and Rng_Item( 4 )
 Rng_Item(3, 1) and Rng_Item( 5 )    Rng_Item(3, 2) and Rng_Item( 6 )

( I can’t view that text by a simple paste into the forum, as the forum editor will “eat” spaces more than 1, reducing all spaces in between text to just 1. That makes it more difficult to see to which cell the text belongs )

Row\Col	C	D
7511	Rng_Item(1, 1) and Rng_Item( 1 )	Rng_Item(1, 2) and Rng_Item( 2 )
7512	Rng_Item(2, 1) and Rng_Item( 3 )	Rng_Item(2, 2) and Rng_Item( 4 )
7513	Rng_Item(3, 1) and Rng_Item( 5 )	Rng_Item(3, 2) and Rng_Item( 6 )

To get a more visual descriptive look at the exact characters there, I wrote a function to return me each character, including any “invisible” ones. The last line of the macro uses that function.

Here, a typical output from that function , ( This form is how you would create that text string in a VBA coding - indicivdual text bits and any “hidden” characters need to be joined with a & – that is just VBA syntax for creating a sting in a code line. )
_ for case of the added values in the cells

 "Rng" & "_" & "Item" & "(" & "1" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 1 " & ")" & vbTab & "Rng" & "_" & "Item" & "(" & "1" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 2 " & ")" & vbCr & vbLf & "Rng" & "_" & "Item" & "(" & "2" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 3 " & ")" & vbTab & "Rng" & "_" & "Item" & "(" & "2" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 4 " & ")" & vbCr & vbLf & "Rng" & "_" & "Item" & "(" & "3" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 5 " & ")" & vbTab & "Rng" & "_" & "Item" & "(" & "3" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 6 " & ")" & vbCr & vbLf

and finally
_ for case of empty cells

 vbTab & vbCr & vbLf & vbTab & vbCr & vbLf & vbTab & vbCr & vbLf

Comparing those, we see that we start with a cell’s value, then a “cell wall” , indicated by the “invisible” character vbTab , then the second cell’s value, then a new line start is indicated by the pair of “invisible” characters, vbCr & vbLf, and so on.

For the sake of clarity, the next view is another view given by my function in a text file, for the two cases

 "Rng" & "_" & "Item" & "(" & "1" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 1 " & ")" & vbTab &  "Rng" & "_" & "Item" & "(" & "1" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 2 " & ")" & vbCr & vbLf
 "Rng" & "_" & "Item" & "(" & "2" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 3 " & ")" & vbTab &  "Rng" & "_" & "Item" & "(" & "2" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 4 " & ")" &  vbCr & vbLf
 "Rng" & "_" & "Item" & "(" & "3" & "," & " 1" & ")" & " and Rng" & "_" & "Item" & "(" & " 5 " & ")" & vbTab &  "Rng" & "_" & "Item" & "(" & "3" & "," & " 2" & ")" & " and Rng" & "_" & "Item" & "(" & " 6 " & ")" & vbCr & vbLf

vbTab & vbCr & vbLf
vbTab & vbCr & vbLf
vbTab & vbCr & vbLf 

( Having the final vbCr & vbLf just seems to be a general computer characteristic when any text is displayed. – An empty text document would , using my function, typically return the two “invisible” characters, vbCr & vbLf )

Hopefully that “gives the picture” of what’s going on. Summary, macros, and working example in next post

[DocAElstein]

This post gives the macros and a file example for the last couple of posts, and begins the discussion for a working example of a text file explorer type view

.

This is the basic example macro used to get the results of the last post https://excelfox.com/forum/showthrea...ll=1#post15730

(The function, WtchaGot_Unic_NotMuchIfYaChoppedItOff(
) , is a bit too big to post, but an example can be found in the uploaded file and a full description with various code versions here: https://excelfox.com/forum/showthrea...ts-of-a-string )

Sub WhatsInWindowsClipboard() '   https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA?p=15730&viewfull=1#post15730   https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA?p=15633&viewfull=1#post15633
Dim Ws As Worksheet: Set Ws = ActiveSheet
1 Ws.Range("C7511:D7513").Select
Dim RngOrg As Range: Set RngOrg = Selection
Dim Clms As Long 'Rws As Long
 Let Clms = RngOrg.Columns.Count ': Let Rws = Rng.Rws.Count
Dim strEval As String
 Let strEval = "=" & """Rng_Item(""" & "&" & "(Row(" & RngOrg.Address & ")" & "-" & "Row(" & RngOrg.Item(1).Address & ")" & ")+1&" & """, """ & "&" & "(Column(" & RngOrg.Address & ")-Column(" & RngOrg.Item(1).Address & "))+1" & "&" & """) and Rng_Item(  """ & "&" & "(Column(" & RngOrg.Address & ")-Column(" & RngOrg.Item(1).Address & "))+1+" & "(((Row(" & RngOrg.Address & ")" & "-" & "Row(" & RngOrg.Item(1).Address & ")" & ")+1-1)*" & Clms & ")" & "&" & """ )"""   '    https://www.excelforum.com/development-testing-forum/1154829-collection-stuff-of-codes-for-other-threads-no-reply-needed.html#post4561126
 '              =       RngItm  (             (           cellRw               -                 TopLeftRw                   )+1        ,              (            cellClm           -             TopLeftClm               )+1             ) and  RngItm (               (            cellClm           -           TopLeftClm                 )+1+     (((         CellRw                 -                 TopLeftRw                   )+1-1)* ClmsCount  )              )
Debug.Print strEval ' This is what you would write in a cell:    ="Rng_Item("&(Row($C$7511:$D$7513)-Row($C$7511))+1&", "&(Column($C$7511:$D$7513)-Column($C$7511))+1&") and Rng_Item(  "&(Column($C$7511:$D$7513)-Column($C$7511))+1+(((Row($C$7511:$D$7513)-Row($C$7511))+1-1)*2)&" )"     It is the string that VBA's  Evaluate(" ")  needs to see in order to give you what you would get if you typed thaat in manually in the cells  ( In this particular example you would need to select a 3 row, 2 column range in the worksheet, add the formula to the formula bar, then do the  Ctrl+Shift*Enter  entry to get the array of resutls
2 Let Selection.Value = Evaluate(strEval)
3 Selection.Copy
' _(iii) Windows Clipboard
'Dim objCliS As DataObject   '**Early Binding.   Object from the class MS Forms, This is for an Object from the class MS Forms. This will be a Data Object of what we "send" to the Clipboard. It has the Methods I need to send text to the Clipboard. I will use this to put Things in the Clipboard. Bringing things out I will do with another Data Object
' Set objCliS = New DataObject '**Must enable Forms Library: In VB Editor do this:  Tools -- References - scroll down to Microsoft Forms 2.0 Object Library -- put checkmark in.  Note if you cannot find it try   OR IF NOT THERE..you can add that manually: VBA Editor -- Tools -- References -- Browse -- and find FM20.DLL file under C:\WINDOWS\system32 and select it --> Open --> OK.
' ( or instead of those two lines Dim obj As New DataObject which is the same ).  or  next two lines are...
Dim objCliS As Object ' ...Late Binding equivalent'
 Set objCliS = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/  https://web.archive.org/web/20140610055224/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/   ( https://web.archive.org/web/20140610024217/http://excelmatters.com/2013/05/21/transposing-an-array-using-an-in-memory-listbox/ )    http://www.eileenslounge.com/viewtopic.php?p=289020#p289020
 objCliS.GetFromClipboard
Dim TxtOut As String: Let TxtOut = objCliS.GetText() 'retrieve the text . ( In this case all I have in it is the text )
 Debug.Print TxtOut
'                Rng_Item(1, 1) and Rng_Item(  1 )   Rng_Item(1, 2) and Rng_Item(  2 )
'                Rng_Item(2, 1) and Rng_Item(  3 )   Rng_Item(2, 2) and Rng_Item(  4 )
'                Rng_Item(3, 1) and Rng_Item(  5 )   Rng_Item(3, 2) and Rng_Item(  6 )
Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(TxtOut)
End Sub

---

Example of a text file explorer type view
So what we are trying to do now is reproduce the typical Excel spreadsheet explore view with a text file looking similar. The horizontal alignment we are trying to get from the “invisible” character vbTab. The hope is that this will help the explorer type horizontal alignment to be maintained.
So we want to make a text file from the Excel spreadsheet, and we have been discussing the useful coincidence that in the ( Windows ) clipboard we have after a .Copy we have exactly what we want.
So we need do no more than copy all the spreadsheet range we are interested in, ( typically the UsedRange in our Excel spreadsheet explorer type view ) , and put the text that is then in the Windows ) clipboard into a text file.
Simple! – Like this

Sub WorksheetToTextFileOverWindowsClipboard() '  https://excelfox.com/forum/showthread.php/1324-Loop-Through-Files-In-A-Folder-Using-VBA?p=15731&viewfull=1#post15731
Rem 1 Copy to Clipboard(s)
Dim Ws As Worksheet: Set Ws = ActiveSheet
Dim RngOrg As Range: Set RngOrg = Ws.UsedRange
RngOrg.Copy
Rem 2 get text held in Windows Clipboard
' _(iii) Windows Clipboard
'Dim objCliS As DataObject   '**Early Binding.   Object from the class MS Forms, This is for an Object from the class MS Forms. This will be a Data Object of what we "send" to the Clipboard. It has the Methods I need to send text to the Clipboard. I will use this to put Things in the Clipboard. Bringing things out I will do with another Data Object
' Set objCliS = New DataObject '**Must enable Forms Library: In VB Editor do this:  Tools -- References - scroll down to Microsoft Forms 2.0 Object Library -- put checkmark in.  Note if you cannot find it try   OR IF NOT THERE..you can add that manually: VBA Editor -- Tools -- References -- Browse -- and find FM20.DLL file under C:\WINDOWS\system32 and select it --> Open --> OK.
' ( or instead of those two lines Dim obj As New DataObject which is the same ).  or  next two lines are...
Dim objCliS As Object ' ...Late Binding equivalent'
 Set objCliS = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/  https://web.archive.org/web/20140610055224/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/   ( https://web.archive.org/web/20140610024217/http://excelmatters.com/2013/05/21/transposing-an-array-using-an-in-memory-listbox/ )    http://www.eileenslounge.com/viewtopic.php?p=289020#p289020
 objCliS.GetFromClipboard
Dim TxtOut As String: Let TxtOut = objCliS.GetText() 'retrieve the text . ( In this case all I have in it is the text )
 Debug.Print TxtOut
Rem 3 put text into text file
Dim FileNum2 As Long: Let FileNum2 = FreeFile(0)                                  ' https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/freefile-function
Dim PathAndFileName2 As String
 Let PathAndFileName2 = ThisWorkbook.Path & "\" & "WorksheetToTextFileOverWindowsClipboard.txt"
 Open PathAndFileName2 For Output As #FileNum2 ' CHANGE TO SUIT  ' Will be made if not there
 Print #FileNum2, TxtOut ' write out entire text file
 Close #FileNum2

End Sub

Some results in the next post

[DocAElstein]

Here are some screenshots of the text file produced, as discussed in the last post.




Unfortunately it’s still much too big to put in a post. The formatting is not great either.

---

Here are all the text files going backwards.

The two lists together on one worksheet
‘WorksheetToTextFileOverWindowsTwoLists.txt’ https://app.box.com/s/pycmoo2hqp054hqfaeaaow6ivd41hwmg 491KB

The two lists, with the extra stuff offset to the right
‘WorksheetToTextFileOverWindowsClipboardTwoLists AndOffset.txt’ https://app.box.com/s/09nj0ytdq0hmrvjj7yta2kmwytre2w86
https://i.postimg.cc/T1RtSxNG/Excel-...le-Printer.jpg
549KB

First List, before Install from DVD
‘WorksheetToTextFileOverWindowsBefore.txt’ https://app.box.com/s/n6a6b5lphi97mxtdebokjiz9khlshies 240KB

List after install
FirstPetraPoohWin7Both https://app.box.com/s/i3tt9dklryn5wxhntpljauyuzu8x89be 259Kb

Just the offset list:
Here I simply isolate the large chunk of new stuff from the Excel file by changing the range used in the macro to Set RngOrg = Ws.Range("P1577:U1610")
‘WorksheetToTextFileOverWindowsClipboardP1577_U1 610.txt’ : https://app.box.com/s/3g5ss2mcedybp96zogp9yhsslwjnnqk8
https://i.postimg.cc/rFwhN8tN/Excel-...ntext-File.jpg
2KB



Here are a few screen shots of the computer situation
Before Driver Disc Inserting and installing Driver
https://i.postimg.cc/tR87q3Vx/Before-1050-Download.jpg
https://i.postimg.cc/ZnGGGKnW/Before1050-Download.jpg
https://i.postimg.cc/rFWsKDSY/Before1050-Download.jpg

Inserting Disc and install
https://i.postimg.cc/Kv47VDh3/After-putting-disc-in.jpg https://i.postimg.cc/Kv47VDh3/After-putting-disc-in.jpg
https://i.postimg.cc/qqqKP4SH/unchec...in-install.jpg https://i.postimg.cc/qqqKP4SH/unchecked-last-three-options-in-install.jpg

https://i.postimg.cc/fyqcyJmb/3-Icons-after-install.jpg https://i.postimg.cc/fyqcyJmb/3-Icons-after-install.jpg
https://i.postimg.cc/R01wfPKy/Finish...-something.jpg https://i.postimg.cc/R01wfPKy/Finished-install-but-said-missing-something.jpg
https://i.postimg.cc/C1Fk4j41/Finish...on-no-good.jpg https://i.postimg.cc/C1Fk4j41/Finished-install-but-said-missing-something-Details-button-no-good.jpg
https://i.postimg.cc/nhD4VVzH/After-...er-in-Word.jpg https://i.postimg.cc/nhD4VVzH/After-install-before-drucker-connect-no-new-drucker-in-Word.jpg
https://i.postimg.cc/RZDDyZY4/All-we...irst-print.jpg
https://i.postimg.cc/hjpxZfC0/New-op...er-install.jpg

After Install
https://i.postimg.cc/BvhHMj7B/Ask-to...weiter-neu.jpg
https://i.postimg.cc/MTNRJhSc/Put-Ti...stoffel-in.jpg
https://i.postimg.cc/CLj89P61/Put-Ti...1-appeared.jpg
https://i.postimg.cc/prjjWqWs/set-up...weiter-neu.jpg
https://i.postimg.cc/RCJKLV7w/set-up...weiter-neu.jpg
https://i.postimg.cc/xTrHxD5h/set-up...weiter-neu.jpg

[DocAElstein]

Here, again, for the mainly DVD instillation are the main added files for this computer ( PoohFirstPetraRotWin7Starter ( Aug 2021 nach repair in PC Shop ) )
At F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\drivers I have an extra
usbscan.sys

I then go a long way down in DriverStore to find this lot

F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4				hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0b b3ab9eb4
				HPScanMiniDrv_DJ1050_J410.INF
				hpscanminidrv_dj1050_j410.PNF
				HPScanMiniDrv_DJ1050_J410x32.CAT
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers					drivers
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scann er
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j 410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scann er\x32
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutra l_4dd0ab13ea43b845				hpvpl04.inf_x86_neutral_4dd0ab13ea43b845
				HPMACRONAMES.gpd
				hpvpl04.cat
				hpvpl04.inf
				hpvpl04.ini
				hpvpl04.PNF
				hp_deskjet_2050_04.gpd
				locale.gpd
				stdnames.gpd
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\ After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutra l_4dd0ab13ea43b845\i386					i386
					hpfime50.dll
					hpinkcoi8911.dll
					hpinksts8911.dll
					hpinksts8911LM.dll
					hpvpldrv04.dll
					hpvplres04.dll
					hpvplui04.dll
					unidrv.dll
					unidrv.hlp
					unidrvui.dll
					unires.dll

Worksheet: FirstPetraPoohWin7


Here a copy from the Immediate Window

F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4	hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4
				HPScanMiniDrv_DJ1050_J410.INF
				hpscanminidrv_dj1050_j410.PNF
				HPScanMiniDrv_DJ1050_J410x32.CAT
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers	drivers
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scanner
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scanner\x32
					
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutral_4dd0ab13ea43b845	hpvpl04.inf_x86_neutral_4dd0ab13ea43b845
				HPMACRONAMES.gpd
				hpvpl04.cat
				hpvpl04.inf
				hpvpl04.ini
				hpvpl04.PNF
				hp_deskjet_2050_04.gpd
				locale.gpd
				stdnames.gpd
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutral_4dd0ab13ea43b845\i386	i386
					hpfime50.dll
					hpinkcoi8911.dll
					hpinksts8911.dll
					hpinksts8911LM.dll
					hpvpldrv04.dll
					hpvplres04.dll
					hpvplui04.dll
					unidrv.dll
					unidrv.hlp
					unidrvui.dll
					unires.dll

Here a paste from the text file produced

 F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4				hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4	
				HPScanMiniDrv_DJ1050_J410.INF	
				hpscanminidrv_dj1050_j410.PNF	
				HPScanMiniDrv_DJ1050_J410x32.CAT	
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers					drivers
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scanner					
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpscanminidrv_dj1050_j410.inf_x86_neutral_f8801e0bb3ab9eb4\drivers\scanner\x32					
					
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutral_4dd0ab13ea43b845				hpvpl04.inf_x86_neutral_4dd0ab13ea43b845	
				HPMACRONAMES.gpd	
				hpvpl04.cat	
				hpvpl04.inf	
				hpvpl04.ini	
				hpvpl04.PNF	
				hp_deskjet_2050_04.gpd	
				locale.gpd	
				stdnames.gpd	
					
F:\DriversDruckerFromPoohFirstPetraRotWin7Starter\After Disc Install\DriverStore\FileRepository\hpvpl04.inf_x86_neutral_4dd0ab13ea43b845\i386					i386
					hpfime50.dll
					hpinkcoi8911.dll
					hpinksts8911.dll
					hpinksts8911LM.dll
					hpvpldrv04.dll
					hpvplres04.dll
					hpvplui04.dll
					unidrv.dll
					unidrv.hlp
					unidrvui.dll
					unires.dll

The screen shot of a view of the text file:

---

The conclusion , probably is that this is easer to see in a Excel file,
and
that if we want to view in a forum post, the first of the above, ( which is a Rory Archibald Forum Tools table without borders of a small section of the full drivers files), is probably the best we can get

Oh well, the last Transgression Vamp at least confirmed the above conclusion

---

‘wbCodesDriversDruckerFromPoohFirstPetraRotWin7S tarter.xlsm’ https://app.box.com/s/k9hqq3mq7972kcucn428ghcd4gciquhn

[DocAElstein]

ölsdjösdjöldsjlsdjgdösö

[DocAElstein]

spare post for later use, and testing links
making now to get the URL link

[DocAElstein]

spare post for later use, and testing links
making now to get the URL link

[DocAElstein]

spare post for later use, and testing links
making now to get the URL link