1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Creating a right-click command to backup file

Discussion in 'Windows XP' started by moonhkt, Feb 23, 2010.

  1. moonhkt

    moonhkt Flightless Bird

    Hi All
    I have Creating a right-click command to backup file try txt and then
    xls file.

    Try txt file ok.
    Then try xls file, not ok, when right-click no option prompted ? Do
    you know why ?

    For txt file
    REGEDIT4
    [HKEY_CLASSES_ROOT\txtfile\shell\backupfile]
    @="Backup Text File"


    [HKEY_CLASSES_ROOT\txtfile\shell\backupfile\command]
    @="cscript //b H:/Software\shell\xbcp.vbs "%1" "txt""


    For excel file
    REGEDIT4
    [HKEY_CLASSES_ROOT\xlsfile\shell\backupfile]
    @="Backup Excel File"


    [HKEY_CLASSES_ROOT\xlsfile\shell\backupfile\command]
    @="cscript //b H:/Software\shell\xbcp.vbs "%1" "xls""


    Option Explicit

    '~~ xbcp.vbs
    '~~ 2010/02/24

    dim objArgs, iArg
    Dim fso,fso1
    dim fn,newfn
    Dim wdate
    dim fncnt
    dim fnprefix
    dim fnext

    Set objArgs = WScript.Arguments


    for iArg = 0 To objArgs.count - 1
    wscript.echo "Arguments=", objArgs(iArg)
    if iArg = 0 then
    fn = objArgs(iArg)
    end if
    if iArg = 1 then
    fnext = objArgs(iArg)
    end if
    next

    wscript.echo fn
    wscript.echo fnext
    fnprefix = mid(fn,1,instrrev(fn,fnext) - 2)
    wscript.echo "fnprefix=" & fnprefix
    Set fso = CreateObject("Scripting.FileSystemObject")

    if fso.FileExists(fn) then
    wDate = Year(Now) & Right("00" & Month(Now), 2) & Right("00" &
    Day(Now), 2)
    newfn = fnprefix & "_" & wdate & "." & fnext

    set fso1 = CreateObject("Scripting.FileSystemObject")

    fncnt = 0
    if fso1.FileExists(newfn) then
    while (fso1.FileExists(newfn))
    fncnt = fncnt + 1
    newfn = fnprefix & "_" & wdate & "_" & fncnt & "." & fnext
    wend
    end if

    fso.copyfile fn, newfn

    end if

    wscript.echo ("DONE")


    '~~ WScript.Sleep
    1000
     
  2. Paul Randall

    Paul Randall Flightless Bird

    You might want to crosspost this to microsoft.public.scripting.vbscript.

    -Paul Randall

    "moonhkt" <moonhkt@gmail.com> wrote in message
    news:f99ff169-8237-45a4-a012-a2ac90c7a156@q2g2000pre.googlegroups.com...
    > Hi All
    > I have Creating a right-click command to backup file try txt and then
    > xls file.
    >
    > Try txt file ok.
    > Then try xls file, not ok, when right-click no option prompted ? Do
    > you know why ?
    >
    > For txt file
    > REGEDIT4
    > [HKEY_CLASSES_ROOT\txtfile\shell\backupfile]
    > @="Backup Text File"
    >
    >
    > [HKEY_CLASSES_ROOT\txtfile\shell\backupfile\command]
    > @="cscript //b H:/Software\shell\xbcp.vbs "%1" "txt""
    >
    >
    > For excel file
    > REGEDIT4
    > [HKEY_CLASSES_ROOT\xlsfile\shell\backupfile]
    > @="Backup Excel File"
    >
    >
    > [HKEY_CLASSES_ROOT\xlsfile\shell\backupfile\command]
    > @="cscript //b H:/Software\shell\xbcp.vbs "%1" "xls""
    >
    >
    > Option Explicit
    >
    > '~~ xbcp.vbs
    > '~~ 2010/02/24
    >
    > dim objArgs, iArg
    > Dim fso,fso1
    > dim fn,newfn
    > Dim wdate
    > dim fncnt
    > dim fnprefix
    > dim fnext
    >
    > Set objArgs = WScript.Arguments
    >
    >
    > for iArg = 0 To objArgs.count - 1
    > wscript.echo "Arguments=", objArgs(iArg)
    > if iArg = 0 then
    > fn = objArgs(iArg)
    > end if
    > if iArg = 1 then
    > fnext = objArgs(iArg)
    > end if
    > next
    >
    > wscript.echo fn
    > wscript.echo fnext
    > fnprefix = mid(fn,1,instrrev(fn,fnext) - 2)
    > wscript.echo "fnprefix=" & fnprefix
    > Set fso = CreateObject("Scripting.FileSystemObject")
    >
    > if fso.FileExists(fn) then
    > wDate = Year(Now) & Right("00" & Month(Now), 2) & Right("00" &
    > Day(Now), 2)
    > newfn = fnprefix & "_" & wdate & "." & fnext
    >
    > set fso1 = CreateObject("Scripting.FileSystemObject")
    >
    > fncnt = 0
    > if fso1.FileExists(newfn) then
    > while (fso1.FileExists(newfn))
    > fncnt = fncnt + 1
    > newfn = fnprefix & "_" & wdate & "_" & fncnt & "." & fnext
    > wend
    > end if
    >
    > fso.copyfile fn, newfn
    >
    > end if
    >
    > wscript.echo ("DONE")
    >
    >
    > '~~ WScript.Sleep
    > 1000
    >
    >
    >
     

Share This Page