SUB VBA zmieniający rozszerzenie pliku

[Polsilver]

Witam , forum jest nowe , nie wiadomo czy ktoś odczyta , potrzebuje takiego Suba jak w temacie , ma ktos wiedze ?
Halo Panie Admin , może masz coś gotowego ?

Pozdrawiam i trzymam kciuki za rozwój forum

[F3nix]

Cześć, może ktoś kiedyś napotka ten temat i się wypowie. Ja nie piszę osobiście w VBA i nigdy nie pisałem.

Dobrze rozumiem, że szukasz funkcji zmieniającej rozszerzenie pliku. Z jakiego rozszerzenia na jakie? Bo nie wiadomo, czy chcesz po prostu zmienić tylko rozszerzenie w nazwie pliku, dokonać parsowania z jakiegoś formatu na inny a może konwersji?

[Krang]

@steo wie wszystko, zapewne Ci pomoże

[steo]

@Krang, ja to się nie znam... Masz jakieś błędne info.

Po co się męczyć? Można w sumie makrem, gdybyś się uparł.
Włączasz Total Commander'a. Zaznaczasz wszystkie pliki, potem ctrl + m.
Czyli masowa zmiana nazw. Potem znajdź -> zmień dla rozszerzeń.
(Łap, nie bijcie już. http://pastebin.com/u2mVhiTY)
Chyba o to Ci chodziło.

[F3nix]

A tu przykład dlaczego wole Pythona. Kilka minut i gotowe:

Kod: Zaznacz cały

#!/usr/bin/python
# -*- coding: utf-8 -*-
# Python haker.edu.pl

import glob
import os.path


def zmienRozszerzenia(sciezkaKatalogu, noweRozszerzenie):

# funkcja zmienia rozszerzenia wszystkich plikow w podanym katalogu

    pliki = glob.glob(sciezkaKatalogu)
    for sciezkaPliku in pliki:
        (nazwaPliku, rozszerzeniePliku) = os.path.splitext(sciezkaPliku)
        if not os.path.isfile(nazwaPliku + noweRozszerzenie):
            print sciezkaPliku + '->' + nazwaPliku + noweRozszerzenie
            os.rename(sciezkaPliku, nazwaPliku + noweRozszerzenie)


zmienRozszerzenia('C:\\Users\\F3nix\\Desktop\\test\\*.*', '.bak')

I tak da się tą funkcje napisać krócej, pozostaje czytelność kodu ...

[steo]

Poczułem się urażony.

[Krang]

http://xakfor.net/threads/doc-exploit-% ... 0%B9.7012/