… do you have a recovery dvd you can use with an external cd/dvd device?

https://backupmedia.toshiba.eu/land…

… I gather that you do’nt have a built-in one(?)

… www.google search reveals tapping the <F12> <key> @ bootup for this function perhaps there’s a recovery option from there also(?)

.
Angel Decoy
… Posting is provided “AS IS” with no warranties
http://img132.imageshack.us/img132/…
Grrrr… …im

See less

The first thing I have to say is that sometimes when Windows reports a file missing or corrupt it is not really, just that the registry is corrupt so Windows can no longer find it. If a registry cleaner has been used on it you never know what you might have or not have.

However, I do have a copy of this file on my Windows XP SP3. So you could run a Live Linux CD on it, look at the HD from Linux and see if the file is even present. If it is there I could send you mine and you could replace it using Linux and see if that helps. If it is a registry problem, or some general corruption, then as soon as you get one file fixed it might promptly report another file missing or corrupt.

If you want to go the Linux way and are unsure how to go about it shout back. Bear in mind that a Live Linux CD works purely from the CD and RAM, which means it doesn’t in it’s own right change Windows – when you restart without the CD it is back the way you found it in the first place (in this case not working). You might need to get into BIOS to put the CD drive ahead of the hard disk to run Linux.

Always pop back and let us know the outcome – thanks

See less

I know it’s possible in PowerShell, but I don’t know of any scriptable object (“scriptable objects” = “VBScript”) that allows you to modify file creation time. If you did use PowerShell, you could call the UTC time functions to handle the UTC -> Local time conversion for you.

[System.IO.File]::SetCreationTimeUtc("some.file",(Get-Date "1/1/2020 20:20:20"))

How To Ask Questions The Smart Way

See less

OK, even though I’m not sure if this is what you want, I think your answer may be buried within this code.

What this does is place a bunch of small rectangles on the Auto sheet based on the values in Sheet1 Column I, S and T.

I = Count of Rectangles Per Row
S, T = Size of Rectangle (I kept this small and consistant for testing purposes)

It will place rectangles in the same row as the Column I count. e.g. if I5 = 3, there will be 3 rectangles in Row 5 on the Auto sheet. In my example, it will place the 3 rectangles in Columns I:K, 1 per column.

In order for the rectangles to be placed “neatly” in each cell, the Row height on the Auto sheet must be the default of 15 and the Column width must be the default of 8.43.

For ease of testing, I started with this on Sheet1:

        I              S        T
1
2
3       1              3        5
4       2	       3        5
5       3	       3        5
6       	       3        5
7       2	       3        5
8       5	       3        5
9       1	       3        5
10      2	       3        5
11      3	       3        5

I ended up with this (x = Rectangle)

         I       J        K        L       M  
1
2
3       x	
4       x        x	
5       x        x        x
6  
7       x        x	
8       x        x        x       x        x
9       x
10      x        x	
11      x        x        x

Here’s the code I used:

Sub RecPlacer()
Dim s As Shape
Dim r As Long, h As Long, v As Long

'****************************************************
'Clear Shapes For Testing
    Sheets("AUTO").DrawingObjects.Delete      '<----------
'****************************************************
    
'Initialize Column Placement Variable (I)
    h = 346

'Initialize Rown Placement Variable (2)
    v = 20

'Loop through Column I
     For r = 3 To Sheets("Sheet1").Cells(Rows.Count, 19).End(xlUp).Row

'Increment Row Placement Variable By One Row
      v = v + 15
         
'Add Rectangles Based On Value In Column Sheet1 Collumn I
        If Sheets("Sheet1").Cells(r, 9).Value > 0 Then
          For r_count = 1 To Sheets("Sheet1").Cells(r, 9).Value
            
'Increment Column Variable By One Column
            h = h + 48.5
        
'Place Rectangles & Text
              Set s = Sheets("AUTO").Shapes.AddShape(msoShapeRectangle, h, v, _
                      Sheets("Sheet1").Cells(r, "S"), _
                      Sheets("Sheet1").Cells(r, "T"))
               
               s.TextFrame2.TextRange.Text = _
                  Sheets("Sheet1").Cells(r, "E") & "; D=" _
               & Sheets("Sheet1").Cells(r, "F") & "; L=" _
               & Sheets("Sheet1").Cells(r, "G") & "; " _
               & Sheets("Sheet1").Cells(r, "I") & " batches; additional pcs: " _
               & Sheets("Sheet1").Cells(r, "J")
          Next
        
'Reset Column Placement Variable (I)
          h = 346
        
        End If
     Next
End Sub

How To Post Data or Code —> Click Here Before Posting Data or VBA Code

message edited by DerbyDad03

See less