Results 1 to 6 of 6
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    unzip file .... (2000 sr 1)

    Add before this line of this piece macro:

    Sub IPSEMA()
    Set Elenco = Worksheets("IPSEMA")
    n = FirstFree("IPSEMA", "A", 2) 'Record iniziale per il riempimento del tabulato
    'Comando inibito per l'azzeramento dei dati importati
    'Elenco.Range("A3:IV65536").ClearContents
    '''''''''''''''''''''''''''''''''
    here the command line to unzip the file
    ''''''''''''''''''''''''''''''''
    iFile = FreeFile()
    NomeFile = "E:MACRODIFRONZOGOTFI200.TXT"

    'Ciclo apertura file di testo
    Open NomeFile For Input As #iFile
    ......

    ... i have many floppy disks and it contain one zip file with the same name: GOTFI200.ZIP
    Into each unziped file is present a file named: GOTFI
    I would want with a shell command or other command line to unzip the file into a dir (add the suffix .TXT): E:MACRODIFRONZOGOTFI200.TXT
    (naturally overwrith the existing file without the tipical message "overwrite YES/NO)

    TIA
    Sal.
    (good morning Hans, Respect!)

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: unzip file .... (2000 sr 1)

    Do you have an official (registered) copy of WinZip 9.0?

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: unzip file .... (2000 sr 1)

    ... naturally.
    I have a official registred ZIP 9.0 (tks my Office;-)

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: unzip file .... (2000 sr 1)

    OK, then you can download and install the free <A target="_blank" HREF="http://www.winzip.com/prodpagecl.htm">WinZip

  5. #5
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: unzip file .... (2000 sr 1)

    I have used this command is a good idea?
    It work but the command flashing for a second a dos windows not is possible to eliminte the flashing dos windows?

    X = Shell("E:MACRODIFRONZOIPSEMA.BAT", 1)

    Batfile:
    pkunzip -o a:*.zip c:ipsema

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: unzip file .... (2000 sr 1)

    Try this:

    X = Shell("pkunzip -o a:*.zip c:ipsema", vbHide)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •