Photo Recovered.

Benny Pedersen's Homepage about photography.
Adobe PhotoShop, Tips Tricks, Photos, Scripts, Tools...
Back to page 1, Links

This article is about what you need to notice after a crash.
Hard earned experience tells me that you will encounter this sooner or later :-(
Therefore the following article could become very important...

After a recovery using software, you can't rely on your thumbs shown by WinXP in you folder(s).
Therefore you need to ensure the quality of your pictures by opening each and everyone of them.

The following is a preliminary text about this subject. I will later enhance this topic.

One of the flaws you can encounter is the following.

The little thumb (WinXP, large icons), shows that everything is perfect (though underexposed), but
a double click shows that in reality the picture is damaged.

It looks like a puzzle concisting of 3 pieces. The two pieces in the bottom are in the wrong place and is furthermore darkened.
The background in the left picture is corrected by switching the two pieces in the bottom of the puzzle, by using "PhotoShop Elements 2".
The two dark pieces could be lighten but it won't be perfect anyway. Newermind - this picture as such was bad from the beginning and is only shown here to explain our recovery topic.
The fact is, I recovered everything of value. My point here: Just because Windows XP shows an okay thumbnail, is not said that the picture is okay and in correct condition.

Selected after the recovery	Thump view (large icons)	Win default viewer (double click)	Opened in PE2
1. Nearly / Almost Both the Win default viewer and "PhotoShop Elements2", opened the picture without any comments.
2. Hmmm The Win default viewer opened the picture without any comments but PE2 said something about truncated or damaged.
3. Not a bit. Description same as case 1.
4. Half in PE2 The Windows default viewer could not open the JPG file.
5. If the thump view / large icons was NOT on, nobody would know what picture that was lost.
6. Pe2 show the most but including things that was not on the picture.
7. Complete recovery :-)

The pictures shown above that was not complete recovered, maybe damaged by
the creation of the Windows recyclebin.
Okay, I admit that before the recovery, Windows said: NO FILES, and I couldn't see anything either.
A conclution maybe that the recovery software I used (Get Data Back for FAT) is a lot clever than
my Microsoft Windows, but what is not that - I can't remember anything that isnt...
BTW. don't cry if you don't have a Visa card, I hope that I also get time testing some freeware.
Anyhow, I find it very strange that Windows XP can figure out a thumb anyway for an image that is
so much damaged as shown in some of the above examples.
Be sure that I will return to this topic, later.

Anyhow, we now got one more reason for using either the below "jpg2numbers.vbs", or the "jpg2dateTime.wsf" script (WinXP)
that you can download from the previous page.

Scripts.

NoRecyclebin.vbs
Purpose: Prevent Windows from overwriting a hard drive that you want to recover.
The creation of a recyclebin could easily make your data unreadable.
(don't just right click this script file but read the code and thereby try to understand how, and why the following script is working).
I have put a lot of comments, so it shouldn't be that difficult.

' NoRecyclebin.vbs
' Benny Pedersen. October 19, 2004. Tested in Win98SE.
' This code may be freely distributed/modified
' Downloaded from http://home1.stofanet.dk/photo/recovery.html

' Before a recovery of another harddrive (if so), I suggest that you
' should now first rightClick on the recyclebin icon on the desktop,
' then choose same value for all drive letters, zero percent, (0 %),
' then continue with this script:

dim fso: set fso = createObject("scripting.fileSystemObject")
  dim wso: set wso = createObject("wScript.shell")
  dim sPath:
  sPath = "HKLM\Software\Microsoft\Windows\CurrentVersion\explor" &_
     "er\Desktop\NameSpace\{645FF040-5081-101B-9F08-00AA002F954E}\"

on error resume next
  wso.regDelete sPath ' Removes the recyclebin icon on your desktop.
  fso.deleteFolder "c:\recycled" ' Remove the recyclebin on drive C.

msgBox "If you delete file(s), or folder(s) without using the " &_
         "shift key, or if you try to empty the recyclebin using" &_
         " the disk cleanUp feature, then the recycle folder wil" &_
         "l be recreated. To avoid recycling," & string(2, vbLf)_
         & vbTab & "1.: Don't even open the cleanUp application." &_
         vbLf & vbTab & "2.: Want to delete, hold the shift key." &_
         string(2, vbLf) & "WARNING: Violation against the rules" &_
         ", on only one drive letter, may cause the reintroducti" &_
         "on of the recycling on all your hard drives.",, "!"

' Benny,
  ' PS.: For recovery, it maybe better, to not delete anything on
  '      the drive that you want to recover, recyclebin included.
  '      Even if you just open the disk cleanUp application, cancel
  '      it, even such would cause the OS to write a new recyclebin
  '      regardless of settings zero space available for recycling.

' To delete all your recyclebins, remove the prefix of quote ('),
  ' from the following line:
  ' RemoveAllRecyclebins(fso)

' To recreate the recycle icon on your desktop, remove the
  ' prefix of quote ('), from the following line:
  ' ReintroductionOfTheRecyclebinIconOnTheDesktop wso, sPath

set fso = nothing
  set wso = nothing

sub RemoveAllRecyclebins(fso)
    dim ascii
    on error resume next
    for ascii = 67 to 90 step 1' ASCII value of C until, including Z
       fso.deleteFolder chr(ascii) & ":\recycled"
    next
  end sub

sub ReintroductionOfTheRecyclebinIconOnTheDesktop(wso, sPath)
    dim sRecyclebinName
    on error resume next
    sRecyclebinName = wso.regRead("HKLM\Software\Microsoft\Windo" &_
      "ws\CurrentVersion\explorer\VolumeCaches\Recycle Bin\Display")
    wso.regWrite sPath, sRecyclebinName, "REG_SZ"
  end sub

PS. Sorry about my english, so I hope you enjoy my code, instead.
BTW.: You maybe have to press the F5 key.

4 Useful Scripts. (Last updated November 2004)
· jpg2numbers.vbs · Make unique Jpeg filenames.
·· move2onePath.vbs ·· (Unique names has its advantages).
··· Identical.wsf ··· Rename any copy, Put "[" in its filename.
···· Del If [ in Jpeg.vbs ····

To copy within a textbox: Hold Ctrl, Press A, Press C or X
' jpg2numbers.vbs ' *** Rename jpeg files (JPG) to numbers *** '1. Input one path and the first number as an integer greater than -1 '2. Make array of jpeg files. SubFolders TRUE or FALSE '3. Loop array: Rename/number each filename '4. Create a batch file in TEMP named "undo.bat" ' If subfolders included (and exists), and an identical filename is ' to be renamed / already exist, the filenames is afterwards unique ' in the specified range, but maybe not consecutive in each folder. ' If no file, or folder; by drag and drop is found, a default value ' to be used instead, can be specified in line numb 17 (3'th below) dim wso: set wso = createObject("wScript.shell") dim path: path = wso.specialFolders("MyDocuments") & "\Lost\" ' [L17] set wso = nothing const UseMinXdigits = 1 '[greater than 1 maybe force prefix of zeros] const ext = "jpg" '[lowercase] const Solve = true '[problem consecutive, see line numb 9 to 11] const subFolders = true const AskOnError = true const CreateUndo = true const firstNumbDefault = 1 dim fso: set fso = createObject("scripting.fileSystemObject") dim scr: scr = fso.getBaseName(wScript.ScriptFullname) dim t2, n2: t2 = string(2,vbTab): n2 = vbCrLf & vbCrLf dim CountError, CountMain: CountError=0: CountMain=0 dim msg,FirstNumb,arr,uB,LastNumb,NumbOfDigits dim NumbOfNumbered,PreFix,msgConfig,TitleInfo: NumbOfNumbered=0 msg = "This script number " & uCase(ext) & "-files." & n2 if(subFolders)then msg = msg & "Subfolders are included." & n2 end if path = getPath(scr, msg & vbLf & "Path:", path, false) msg = string(5,vbLf) & "Start number:" FirstNumb = getInteger(msg, firstNumbDefault) if(CreateUndo)then dim undoFile: undoFile = fso.getSpecialFolder(2) & "\undo.bat" msg = "The following file will be overwritten:" & vbLf & undoFile do while(fso.fileExists(undoFile)) select case msgBox(msg, 2+64+512, scr) case vbAbort : wScript.quit case vbIgnore: exit do end select loop end if arr = split(getFileList(path, subFolders, empty), "*") uB = uBound(arr): if(uB<0)then uB=0 if(uB)then LastNumb = FirstNumb -1 +uB NumbOfDigits = len(LastNumb) if(UseMinXdigits > NumbOfDigits)then NumbOfDigits = UseMinXdigits PreFix = string(NumbOfDigits -1, "0") if(CreateUndo)then dim Bat: set Bat = fso.openTextFile(undoFile, 2, true) main: Bat.writeLine "@echo off": Bat.close: set Bat = nothing if(NumbOfNumbered)then ReverseFile(undoFile) else fso.deleteFile(undoFile) end if else main end if else NumbOfDigits = len(FirstNumb) end if LastNumb = PreFixed(LastNumb) msg = scr & n2 & path & vbLf & "Subfolder(s)" if not(subFolders)then msg = msg & " not" msg = msg & " included." & n2 _ & "Found: " & t2 & uB & " " & uCase(ext) & "-file(s)." & vbLf _ & "Numbered:" & t2 & NumbOfNumbered & n2 if(CreateUndo)and(NumbOfNumbered>0)then msg = msg & "Created:" & vbLf & undoFile & n2 end if msgConfig = vbYesNo +vbInformation +vbDefaultButton2 if(NumbOfNumbered < uB)then if((NumbOfNumbered > 1) and (CountMain = -1))_ then TitleInfo = PreFixed(FirstNumb -1 +NumbOfNumbered) & " " TitleInfo = TitleInfo & "(Oops), last numb should be: " end if TitleInfo = PreFixed(FirstNumb) & " ... " & TitleInfo & LastNumb do:loop while vbNo = msgBox(msg & "Exit ?", msgConfig, TitleInfo) sub main CountMain = CountMain +1: CountError = 0 dim numb,i,file,newFullName,tmp,fileName numb = FirstNumb -1 on error resume next for i = 1 to uB file = arr(i) if(not(file=empty))then newFullName = fso.getParentFolderName(file) & "\" _ & PreFixed(numb +i) & "." & ext fso.moveFile file, newFullName if(err)then CountError = CountError +1 if(AskOnError)then if(vbCancel = msgBox("Number of named is: " &_ NumbOfNumbered & n2 & "Could not number:" & vbLf &_ vbTab & file & vbLf & "to:" & vbLf & vbTab &_ newFullName, vbRetryCancel, i & " | " & uB))_ then CountMain = -CountMain * CountError: exit sub end if if(Solve)then for tmp=i+1 to uB if(left(arr(tmp),len(arr(tmp))-len(ext))_ = left(newFullName,len(newFullName)-len(ext)))_ then arr(tmp) = arr(i) arr(i) = empty: NumbOfNumbered = NumbOfNumbered +1 err.clear: exit for end if next end if if(err)then tmp=arr(i): arr(i)=arr(uB): arr(uB)=tmp: err.clear else NumbOfNumbered = NumbOfNumbered +1: arr(i) = empty if(CreateUndo)then fileName = """" & fso.getFileName(file) & """" Bat.writeLine"ren """ & newFullName & """ " & fileName end if end if end if next if(NumbOfNumbered < uB)then if(AskOnError)then main else if(CountError < uB)then main end if end if end sub function getFileList(folderSpec, recurse, list): dim f for each f in fso.getFolder(folderSpec).files if(lCase(fso.getExtensionName(f)) = ext)then list = list & "*" & f next if(recurse)then for each f in fso.getFolder(folderSpec).subfolders getFileList f, recurse, list next end if getFileList = list end function function getPath(title, byVal msg, byVal default, byVal bool) dim p: bool = abs(bool): on error resume next if(wScript.arguments.count > bool)then p= wScript.arguments(bool): default = fso.getFolder(p) if(err)then default = fso.getParentFolderName(p) end if: default = replace(default & "\","\\","\") p = replace(trim(inputBox(msg,title,default)),"""","") if(p="")then wScript.quit(0) err.clear: p= replace(fso.getFolder(p) & "\","\\","\") if(err)then msg = "Path not found:" & vbLf & p & vbLf & vbLf msgBox msg & vbLf & "Quit:",48,"Error": wScript.quit(1) end if: getPath = p' [p ending with a backslash] end function function ReverseFile(file) dim f,a,i set f=fso.openTextFile(file,1): a=f.readAll:f.close a=split(a, vbCrLf): set f=fso.openTextFile(file, 2) for i = uBound(a) -1 to 0 step -1: f.writeLine a(i) next: f.close: set f=nothing end function function getInteger(msg, defaultValue) ' [Get integer greater than -1] dim i: do: i = inputBox(msg,, defaultValue) if(i = "")or(not isNumeric(i))or(inStr(i, "."))_ then getInteger msg,defaultValue: exit function loop until (abs(int(i)) = -int(-i)): getInteger = i end function function PreFixed(strng) PreFixed = right(PreFix & strng, NumbOfDigits) end function set fso = nothing
' move2onePath.vbs ' Ex.: If the source folder contained X file(s), Y subfolder(s), ' then the destination folder (if empty) should contain ' all the X files, and no subfolders. Each and every ' file is simply moved into only one destination folder. ' If the above Y is greater than 0, it is possible that two ' identical filenames are ready to be moved, but since such ' an overwrite could lead to loosing a file, the script would ' then show a message, and interrupt. dim m,fso,n2,wso,path1,scr,msg,files,uB,path2,i,source,destination m = 0: set fso = createObject("scripting.fileSystemObject") n2= string(2,vbLf): set wso = createObject("wScript.shell") const q = """", openFolder = true, ext = "JPG" '[uppercase extension] path1=wso.specialFolders("MyDocuments")& "\Lost\" '[default if no drag] scr = q & fso.getFileName(wScript.ScriptFullname) & q msg = "This script would for any " & ext & "-file that it find in " &_ "the specified folder and any subfolder(s), move each and " &_ "every file into only ONE folder." & string(5,vbLf) path1 = getPath("Source Path?", msg & "Source:", path1, false) files = split(getFileList(path1, -1, empty),"*") uB = uBound(files): if uB = -1 then uB = 0 msg = "Put: " & uB & " " & ext & "-file(s)." & string(5,vbLf) path2 = path1 & "..\Destination\" '[default if not 2 files/foldes drop] path2 = getPath("Destination Path?", msg & "Destination:", path2, true) for i=1 to uB source = files(i) destination = path2 & fso.getFileName(source) if(fso.fileExists(destination))then msgBox"Overwrite, not allowed:" & n2 & "From:" & n2 & q & source _ & q & n2 & "to" & n2 & q & path2 & q & n2 & vbTab & "Quit:",16,"!" exit for else fso.moveFile source, path2: m = m +1 end if next msgBox "Found:" & vbTab & uB & " " & ext & "-file(s)." & vbLf _ & "Moved:" & vbTab & m & " " & ext & "-file(s)." & vbTab & n2 _ & "From: """ & path1 & q & vbLf & "To: """ & path2 & q, 64, scr if(openFolder)and(m>0)then wso.run "explorer.exe " & path2 function getFileList(folderSpec, recurse, list): dim f for each f in fso.getFolder(folderSpec).files if(uCase(fso.getExtensionName(f)) = ext)then list = list & "*" & f next if(recurse)then for each f in fso.getFolder(folderSpec).subfolders getFileList f, recurse, list next end if getFileList = list end function function getPath(byVal title, byVal msg, byVal default, byVal bool) dim p: bool = abs(bool): on error resume next if(wScript.arguments.count > bool)then p= wScript.arguments(bool): default = fso.getFolder(p) if(err)then default = fso.getParentFolderName(p) end if: default = replace(default & "\","\\","\") p = replace(trim(inputBox(msg,title,default)),"""","") if(p="")then wScript.quit(0) err.clear: p= replace(fso.getFolder(p) & "\","\\","\") if(err)then msg = "Path not found:" & vbLf & p & vbLf & vbLf title = """" & fso.getFileName(wScript.ScriptFullname) & """" if(bool)then if(vbOk = msgBox(msg &_ "Do you want me to create the folder ?", 289, title))_ then err.clear: fso.createFolder(p): p= fso.getFolder(p) & "\" end if if(err)then msgBox msg & vbLf & "Quit:",48,"Error": wScript.quit(1) end if: getPath = p' [p ending with a backslash] end function set wso=nothing: set fso=nothing
<PACKAGE><JOB ID= Identical.wsf ><SCRIPT language="JScript"> function jsSort(arr){return arr.toArray().sort().join('*')} </SCRIPT><SCRIPT language="VBScript"> dim scr: scr = " """ & wScript.ScriptFullname & """" dim wso: set wso = wScript.createObject("wScript.shell") if(inStr(lCase(wScript.fullname), "wscript.exe"))then dim i:for each i in wScript.arguments:scr=scr & " """ & i & """":next wso.run "cScript.exe" & scr,0: set wso=nothing: wScript.quit else dim noDiff,delimit,cmd: noDiff = getNoDiff(scr,wso,delimit,cmd) dim fso,path: set fso = createObject("scripting.fileSystemObject") end if const ext = "jpg" '[lowercase] const subFolders = true const sort = true '[if true and numbered filenames, rename high number] path= wso.specialFolders("MyDocuments")& "\Lost\" '[Default if no drop] dim r,arr,uB,i1,f1,s1,i2,f2: r=0 scr = fso.getFileName(replace(scr,"""","")) path= getPath(scr,string(5,vbLf) & "Path:",path,0): dim s:s = timer arr = split(getFileList(path,subFolders,""),"*") if(sort)then arr = split(jsSort(arr),"*") uB = uBound(arr): if uB<0 then uB=0 for i1=1 to uB f1 = arr(i1) if(f1<>empty)then s1 = fso.getFile(f1).size for i2=(i1 +1)to uB f2 = arr(i2) if(f2<>empty)then if(s1=fso.getFile(f2).size)then if isIdentical(f1,f2)then r = renf2(f1,arr(i2),r) end if end if next end if next msgBox"Found:" & vbTab & vbTab & uB & " " & ext & "-file(s)." & vbLf _ & "Renamed:" & vbTab & r & " " & ext & "-file(s)." & vbLf & vbLf _ & "Runtime: Seconds:" & vbTab & (timer -s), 64, scr function getFileList(folderSpec, recurse, list): dim f for each f in fso.getFolder(folderSpec).files if(lCase(fso.getExtensionName(f)) = ext)then list = list & "*" & f next if(recurse)then for each f in fso.getFolder(folderSpec).subfolders getFileList f, recurse, list next end if getFileList = list end function function getPath(title, byVal msg, byVal default, byVal bool) dim p: bool = abs(bool): on error resume next if(wScript.arguments.count > bool)then p= wScript.arguments(bool): default = fso.getFolder(p) if(err)then default = fso.getParentFolderName(p) end if: default = replace(default & "\","\\","\") p = replace(trim(inputBox(msg,title,default)),"""","") if(p="")then wScript.quit(0) err.clear: p= replace(fso.getFolder(p) & "\","\\","\") if(err)then msg = "Path not found:" & vbLf & p & vbLf & vbLf msgBox msg & vbLf & "Quit:",48,"Error": wScript.quit(1) end if: getPath = p' [p ending with a backslash] end function function getNoDiff(scr,wso,delimit,cmd) if("%OS%" = wso.expandEnvironmentStrings("%OS%"))then cmd = """C:\Windows\Command\fc.exe""" else cmd = """C:\Windows\system32\fc.exe""" end if: on error resume next getNoDiff = wso.exec(cmd & scr & scr).stdOut.readAll getNoDiff = mid(getNoDiff,inStrRev(getNoDiff,"FC: ")) if 1<>inStr(getNoDiff,"FC")then inputBox"Error",,"[L87]":wScript.quit delimit = """ """: cmd = cmd & " /Lb1 """ getNoDiff = replace(getNoDiff,vbCrLf,"") end function function isIdentical(f1,f2) if(inStr(wso.exec(cmd & f1 & delimit & f2 & """") _ .stdOut.readAll, noDiff))then isIdentical = true end function function renf2(byVal f1, byRef f2, count) f1 = fso.getBaseName(f2) & "[" & fso.getBaseName(f1) & "]." & ext f1 = fso.getParentFolderName(f2) & "\" & f1 fso.moveFile f2,f1: f2=empty renf2 = count +1 end function set wso=nothing: set fso=nothing </SCRIPT></JOB></PACKAGE>
' Del If [ in Jpeg.vbs ' Delete any Jpeg file that contains "[" in its basename. ' PS. force = false to not include write protected files: const force = false, subFolders = true, ext = "JPG" '[uppercase]. dim fso,wso,path,scr,arr,uB,msg: const easterEgg = false set fso = createObject("scripting.fileSystemObject") set wso = createObject("wScript.shell") path= wso.specialFolders("MyDocuments") & "\Lost\" scr = fso.getFileName(wScript.ScriptFullname) path= getPath(scr,string(5,vbLf) & "Path:",path,0) arr = split(getFileList(path, subFolders, ""),"*") uB = uBound(arr): if uB<0 then uB=0 if(easterEgg)then ' (Undo previous rename), Path\Base[origin].Extension msg= renameFiles()' Substitute basename "X[*" with "X". (X not empty) else msg= deleteFiles() end if msgBox "Found:" & vbTab & vbTab & uB & " " & ext & "-file(s)." & vbLf _ & msg, 64, scr function deleteFiles() dim d,countErr,i,f: d=0: countErr=0 on error resume next for i=1 to uB f = arr(i) if(inStr(fso.getBaseName(f), "["))then fso.deleteFile f, force if(err)then countErr = countErr +1: err.clear else d = d +1 end if end if next msg = "Deleted:" & vbTab & vbTab & d & " " & ext & "-file(s)." & vbLf if(countErr)then msg = msg & vbLf & "Note: Could not proceed all files:" end if deleteFiles = msg & vbLf & "Number of failures:" & vbTab & countErr end function function renameFiles() dim m,countErr,e,i,f,base,p,newName: m=0: countErr=0 on error resume next e = "." & fso.getExtensionName(arr(1)) for i=1 to uB f = arr(i) base = fso.getBaseName(f) p = inStr(base, "[") if(1 < p)then newName = fso.getParentFolderName(f) & left("\" & base, p) & e fso.moveFile f, newName if(err)then countErr = countErr +1: err.clear else m = m +1 end if end if next msg = "Renamed: " & vbTab & m & " " & ext & "-file(s)." & vbLf if(countErr)then msg = msg & vbLf & "Note: Could not proceed all files:" end if renameFiles = msg & vbLf & "Number of failures:" & vbTab & countErr end function function getFileList(folderSpec, recurse, list): dim f for each f in fso.getFolder(folderSpec).files if(uCase(fso.getExtensionName(f)) = ext)then list = list & "*" & f next if(recurse)then for each f in fso.getFolder(folderSpec).subfolders getFileList f, recurse, list next end if getFileList = list end function function getPath(byVal title, byVal msg, byVal default, byVal bool) dim p: bool = abs(bool): on error resume next if(wScript.arguments.count > bool)then p= wScript.arguments(bool): default = fso.getFolder(p) if(err)then default = fso.getParentFolderName(p) end if: default = replace(default & "\","\\","\") p = replace(trim(inputBox(msg,title,default)),"""","") if(p="")then wScript.quit(0) err.clear: p= replace(fso.getFolder(p) & "\","\\","\") if(err)then msg = "Path not found:" & vbLf & p & vbLf & vbLf title = """" & fso.getFileName(wScript.ScriptFullname) & """" if(bool)then if(vbOk = msgBox(msg &_ "Do you want me to create the folder ?", 289, title))_ then err.clear: fso.createFolder(p): p= fso.getFolder(p) & "\" end if if(err)then msgBox msg & vbLf & "Quit:",48,"Error": wScript.quit(1) end if: getPath = p' [p ending with a backslash] end function set wso=nothing: set fso=nothing

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
For internal use. You may ignore this jumbled script, (Wrote-In-2-Minutes)
' Compare a script from my Homepage. See line numb 12 and 15 (and 23): Const ForReading = 1 dim wso: set wso = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") dim file1,fileName1,e,file2,fileName2,f1,f2: file1= getFile() fileName1 = fso.getFileName(file1): for each e in array(_ "i jpg2dateTime.wsf" , "i JPG2jpg.bat" ,_ "i MakeThumbsIndex.wsf", "i pdfNot2Photoshop.VBS" ,_ "i jpg2Photoshop.VBS" , "i Photoshop.VBS" , "i Identical.vbs" ,_ "r NoRecyclebin.vbs" , "r jpg2numbers.vbs" , "r move2onePath.vbs",_ "r Identical.wsf" , "r Del If [ in Jpeg.vbs" ,_ "r CompareScript.vbs" _ ):if(lCase(mid(e,3)) = lCase(fileName1))then if(left(e,1) = "r")then file2 = wso.specialFolders("MyDocuments") & "\recovery.html" else file2 = wso.specialFolders("MyDocuments") & "\index.html" end if exit for end if next if not(fso.fileExists(file2))then if(file2="")then msgBox"Script not found in Webpage about photo:" & vbLf & fileName1 else msgBox "Webpage not found:" & vbLf & file2 end if: wScript.quit end if fileName2= fso.getFileName(file2) set f1=fso.openTextFile(file1, ForReading) set f2=fso.openTextFile(file2, ForReading) dim c2,l2,msgOn,msgConfig1,msgConfig2,c1,l1,z1,z2,t1,t2 c2 = 2 dim search: search = "<a name=""" & fileName1 & """></a>" do: c2=c2+1: loop until f2.readLine = search: f2.skipLine l2 = f2.readLine msgOn = true msgConfig1 = vbYesNoCancel + vbDefaultButton1 msgConfig2 = msgConfig1 c1 = 0: l1 = "" z1 = CountLines("f1", c1, "chr(2)") z2 = CountLines("f2", c2, chr(60) & "/textarea>") t1 = len(fileName1): t2 = len(fileName2) if(t1 > t2)then t2 = t1 t1 = string(5,vbTab) & left(fileName1 & " " & string(t2,"#"),t2+3) & _ vbTab & "Line(s): " & z1 & " [0001..." & right("000" & z1,4) & "]" t2 = string(5,vbTab) & left(fileName2 & " " & string(t2,"#"),t2+4) & _ vbTab & "Line(s): " & z2 & " [" & right("000" & c2, 4) & "..." & _ right("000" & z2 +c2 -1, 4) & "]" on error resume next do: c1 = c1 +1: l1 = f1.readLine if err then l1 = chr(1): if(l1 = l2)then exit do msgOn = true end if if not l1 = l2 then msgOn = true: if(err=0)then msgConfig1 = msgConfig1 +vbInformation end if if msgOn then select case msgBox(vbLf & right("000" & c1, 4) & ": " &_ replace(l1,vbTab," ") & vbLf &_ right("000" & c2,4) & ": " &_ replace(l2,vbTab," ") & vbLf & vbLf & t1 &_ vbLf & t2, msgConfig1, "Yes: Continue Step" &_ " | No: Jump to difference or quit | Cancel: Quit") case vbNo: msgOn = false case vbCancel: exit do end select if msgConfig1 > msgConfig2 then msgConfig1 = msgConfig1 -vbInformation end if end if c2 = c2 +1: if not(l2 = chr(1))then l2 = f2.readLine if(l2 = chr(60) & "/textarea>")then l2 = chr(1) end if loop f1.close: f2.close function getFile() if(wScript.arguments.count)then getFile = wScript.arguments(0) else msgBox "Script not found by drag and drop." & vbLf _ & "Drag and drop a script that was downloaded" wScript.quit end if end function function CountLines(Fi, byVal LinesReaded, EndLine) dim c,tmp,f if(LinesReaded = 0)then c = -1 on error resume next if(Fi="f1")then do: c = c +1: loop until err or f1.readLine = EndLine f1.close set f1 = fso.openTextFile(file1, ForReading) do until LinesReaded = 0: LinesReaded = LinesReaded -1: f1.skipLine loop elseIf(Fi="f2")then do: c = c +1: loop until err or f2.readLine = EndLine f2.close set f2 = fso.openTextFile(file2, ForReading) do until LinesReaded = 0: LinesReaded = LinesReaded -1 f2.skipLine loop else msgBox "Error": wScript.quit end if CountLines=c end function set f1 = nothing: set f2 = f1: set fso = f1: set wso = f1

If your recovery software cannot detect your camera memory card in your card reader, then let NOT Scandisk fix an error such as this one, but you may allow Scandisk to fix another ONE. Then repeat running your recovery software.
When the recovery work is done, then you can let Scandisk fix whatever it like.

Scandisk want to delete invalid data:

If not Scandisk can fix it, then you can try format the card, then repeat running your recovery software.
BTW. Do not try to copy a file to a write protected SD Card in a real DOS session (used a boot floppy with CONFIG.SYS, DEVICE=USB driver)...
In the same second when you see the CANNOT COPY FILE... message, all data is gone. Strange! Moreover,
you have to reformat the USB disk, flash card.

I will later (January 2005); upload both a CONFIG.SYS and an AUTOEXEC.BAT file that show your how to access
an USB device, e.g. a SanDisk Cruzer, (it won't work with all card readers, e.g. Lexar Media,...)

BartPE Stuff

Links:
My new Homepage: home1.stofanet.dk/photo (back to page 1)
My old Homepage: 2dos.homepage.dk

E-Mail:
To send me an e-mail, do not expect me to reply, and use my
first and lastname, like this: firstname.lastname@gmail.com :-)

Subject: Have an idea / Can you make a script, which can solve ...
My answer would probably be YES.

Subject: How do I make / Do you know how to ...
My answer would probably be NO.

Download all scripts, current page:
(IE). Show, Source, Files, Save as.