Korzystanie z FileSystemObject (FSO) w Excel VBA
FileSystemObject (FSO) zapewnia dostęp do całej gamy funkcji umożliwiających dostęp do systemu plików komputera. Za pomocą tego obiektu można łatwo uzyskać dostęp do plików, folderów i dysków, a także odczytywać i zapisywać pliki.
Wiele funkcji FSO można by napisać w tradycyjnym języku VBA, ale wymagałoby to więcej kodowania i byłoby trudniejsze do utrzymania i zrozumienia przez przychodzącego programistę. FSO to wypróbowany i przetestowany interfejs API (interfejs programowania aplikacji) i jest bardziej niezawodny niż Twój własny kod. Jest łatwy w użyciu, gotowy i dostępny.
FSO działa zgodnie z międzynarodowymi standardami i ustawieniami, które masz na swoim komputerze. Jeśli dystrybuujesz swoją aplikację Excel na całym świecie, użycie FSO wyeliminuje wszelkie różnice w ustawieniach między krajami, z czym Twój własny kod miałby problemy.
FSO pozwoli ci zrobić prawie wszystko w kodzie VBA, co możesz zrobić w Eksploratorze plików Windows. Daje pełny dostęp do systemu plików Windows.
Tworzenie obiektu systemu plików
FileSytemObject nie jest częścią Excel VBA. Możesz użyć FSO, tworząc obiekt (późne wiązanie) w VBA:
| 123 | Sub UtwórzFSO()Ustaw MyFSO = CreateObject("Scripting.FileSystemObject")Napis końcowy |
Alternatywnie możesz dodać odwołanie do VBA dla biblioteki FSO. Nazywa się to wczesnym wiązaniem i jest szybsze niż późne wiązanie, ponieważ obiekt nie musi być tworzony podczas uruchamiania kodu.
Aby dodać odwołanie, musisz nacisnąć Alt-F11, aby przejść do Edytora Visual Basic (VBE), a następnie użyć „Narzędzia | Referencje” z menu VBE. Spowoduje to wyświetlenie wyskakującego okienka, w którym można wybrać odpowiednie odniesienie (patrz poniżej).
Przewiń listę dostępnych odniesień, aż zobaczysz „Microsoft Scripting Runtime”. Zaznacz pole i kliknij OK, a biblioteka jest teraz częścią Twojej aplikacji.
Lokalizacja pliku biblioteki DLL to C:\Windows\SysWOW64\scrrun.dll
Jeśli dystrybuujesz swoją aplikację do innych współpracowników lub lokalizacji, ważne jest, aby mieli oni ten plik we właściwej lokalizacji na swoim komputerze, w przeciwnym razie Twój kod będzie błędny.
Warto umieścić pułapkę błędu na zdarzeniu „WorkbookOpen” za pomocą polecenia Dir, aby sprawdzić, czy plik istnieje. Jeśli go nie ma, podaj komunikat ostrzegawczy i zamknij plik Excel.
Po dodaniu odwołania możesz użyć następującego kodu do utworzenia FSO:
| 123 | PodtestFSO()Dim MyFSO jako nowy obiekt systemu plikówNapis końcowy |
Wszystkie przykłady w tym artykule wykorzystają tę metodologię do stworzenia FSO.
FSO ma wiele dostępnych metod i właściwości. Są one tutaj podzielone na sekcje w zależności od tego, co mogą zrobić.
Korzystanie z metod „istnieje”
Możesz użyć metody FSO, aby sprawdzić, czy istnieje dysk, folder lub plik. Te metody są łatwe w użyciu i wymagają tylko jednego parametru.
| 123456 | Sub SprawdźIstnienie()Dim MyFSO jako nowy obiekt systemu plikówMsgBox MyFSO.DriveExists("C:")MsgBox MyFSO.FolderExists("C:\temp\")MsgBox MyFSO.FileExists("C:\temp\plik testowy.txt")Napis końcowy |
Wszystkie te stwierdzenia zwrócą wartość „Prawda”, zakładając, że twój komputer ma dysk C:, folder o nazwie „Temp” i plik w folderze Temp o nazwie „testfile.txt”
W ciągach tekstowych w parametrach nie jest rozróżniana wielkość liter. W żadnej z tych metod nie można używać symboli wieloznacznych.
Nie można również używać adresów URL (Uniform Resource Locators) do opisywania lokalizacji folderu lub pliku. FSO działa wyłącznie na systemie operacyjnym Windows i znajdującym się na nim systemie plików. W przypadku lokalizacji serwera zewnętrznego należy najpierw zmapować dysk do tego, a następnie użyć samej ścieżki dysku.
Korzystanie z metod „Pobierz”
FSO ma wiele metod uzyskiwania informacji o pliku i ścieżce, dzieląc ścieżkę i plik lub uzyskując informacje o pliku lub folderze, takie jak data utworzenia lub data modyfikacji.
GetAbsolutePathname
Zapewni to pełną ścieżkę od katalogu głównego określonego dysku.
Składnia to:
GetAbsolutePathName (ścieżka)
| 12345 | Podścieżka bezwzględna()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = „c:…”MsgBox MyFSO.GetAbsolutePathName(Pth)Napis końcowy |
Zwróci to ciąg „C:\Users\Richard\Documents”. Dzieje się tak, ponieważ ścieżka została określona jako C:, po której następują trzy kropki. Każda kropka oznacza kolejny poziom w strukturze folderów.
GetBaseName
Zwraca nazwę określonego pliku lub folderu.
Składnia to:
GetBaseName(ścieżka)
| 12345 | Sub nazwa bazy()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\plik testowy.txt"MsgBox MyFSO.GetBaseName(Pth)Napis końcowy |
Ten kod zwróci „testfile”. Metoda zwraca ostatnią sekcję w nazwie ścieżki. Jeśli jest to plik, to nie zwraca sufiksu pliku.
Jeśli nie można znaleźć ścieżki, zostanie zwrócony pusty ciąg.
GetDrive
Pozwala to na użycie kodu w celu uzyskania dostępu do informacji o dysku na podstawie określonej litery dysku.
Składnia to:
GetDrive (specyfikacja dysku)
| 123456 | Informacje o dysku pomocniczym()Dim MyFSO As New FileSystemObject, Pth As String, Dr As DrivePth = "C:"Ustaw Dr = MyFSO.GetDrive(Pth)MsgBox Dr.FreeSpaceNapis końcowy |
Ta metoda zwraca obiekt dysku na podstawie określonego dysku. Możesz użyć tego obiektu, aby uzyskać dostęp do informacji o dysku, takich jak dostępne wolne miejsce.
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
GetDriveName
Ta metoda oddzieli nazwę dysku od ciągu ścieżki / nazwy pliku.
Składnia to:
GetDriveName (ścieżka)
| 12345 | Nazwa dysku podrzędnego()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\plik testowy.txt"MsgBox MyFSO.GetDriveName(Pth)Napis końcowy |
To zwróci „C:”
Pobierz nazwę rozszerzenia
Spowoduje to zwrócenie sufiksu pliku w określonej ścieżce.
Składnia to:
Pobierz nazwę rozszerzenia (ścieżka)
| 12345 | Nazwa rozszerzenia podrzędnego()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\plik testowy.txt"MsgBox MyFSO.GetExtensionName(Pth)Napis końcowy |
To zwróci „txt”.
Jeśli nie określono pliku, zwrócony zostanie pusty ciąg.
Dostać plik
Ta metoda zwraca obiekt pliku, który przechowuje różne informacje o samym pliku.
Składnia to:
Dostać plik (specyfikacja pliku)
| 123456 | Informacje o pliku podrzędnym()Dim MyFSO As New FileSystemObject, Pth As String, Fn As FilePth = "C:\temp\plik testowy.txt"Ustaw Fn = MyFSO.GetFile(Pth)MsgBox Fn.Data utworzeniaNapis końcowy |
Spowoduje to zwrócenie daty i godziny utworzenia określonego pliku. Jeśli nie określono pliku lub plik nie istnieje, pojawi się błąd „nie znaleziono pliku”.
| 12345 | Nazwa pliku podrzędnego()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\plik testowy.txt"MsgBox MyFSO.GetFileName(Pth)Napis końcowy |
To zwróci ‘testfile.txt’.
Pobierz folder
Spowoduje to utworzenie obiektu folderu dla folderu podstawowego w określonej ścieżce. Ścieżka może zawierać tylko nazwy folderów. Nie należy podawać żadnych nazw plików, w przeciwnym razie wystąpi błąd.
Składnia to:
Pobierz folder (specyfikacja folderu)
| 123456 | Informacja o podfolderze()Dim MyFSO As New FileSystemObject, Pth As String, Fo As FolderPth = "C:\temp"Ustaw Fo = MyFSO.GetFolder(Pth)MsgBox Fo.Data utworzeniaNapis końcowy |
Obiekt folderu zawiera różne informacje, do których można uzyskać dostęp. W takim przypadku zwraca datę utworzenia folderu.
Możesz również użyć tej metody, aby pobrać wszystkie nazwy plików w danym folderze:
| 12345678 | Nazwy plików podrzędnych()Dim MyFSO As New FileSystemObject, Pth As String, Fo As Folder, Fn As FilePth = "C:\temp"Ustaw Fo = MyFSO.GetFolder(Pth)Dla każdego Fn w Fo.FilesMsgBox Fn.NameNastępny FnNapis końcowy |
Ten kod przejdzie przez folder „Temp” i wyświetli każdą znalezioną nazwę pliku.
Pobierz nazwę folderu nadrzędnego
Ta metoda zwróci nazwę folderu na następnym poziomie w hierarchii folderów.
Składnia to:
Pobierz nazwę folderu nadrzędnego (ścieżka)
| 12345 | Nazwa podfolderu()Dim MyFSO As New FileSystemObject, Pth As String, Fo As FolderPth = "C:\użytkownicy\richard"MsgBox MyFSO.GetParentFolderName(Pth)Napis końcowy |
Zwróci to „Użytkownicy”, ponieważ jest to „rodzic” dla folderu „richard”.
Programowanie VBA | Generator kodu działa dla Ciebie!
Korzystanie z metod „Tworzenie”
Za pomocą FSO możesz utworzyć nowy folder i ścieżkę oraz utworzyć plik tekstowy.
Utwórz folder
Możesz określić nową nazwę ścieżki folderu, która ma zostać utworzona. Niebezpieczeństwo polega na tym, że jeśli folder już istnieje, wystąpi błąd. Możesz użyć metody „FolderExists”, aby upewnić się, że tak się nie stanie.
Składnia to:
Utwórz folder(Nazwa folderu)
| 1234567 | Sub Utwórz nowy folder()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\MójFolder"Jeśli MyFSO.FolderExists(Pth) = False WtedyMyFSO.CreateFolder (Pth)Zakończ, jeśliNapis końcowy |
Ten kod utworzy nowy folder o nazwie „MyFolder” pod istniejącą ścieżką „C:\temp”.
Utwórz plik tekstowy
Ta metoda pozwala na stworzenie prostego pliku tekstowego i pisanie do niego bezpośrednio.
Składnia to:
Utwórz plik tekstowy (Nazwa pliku, [ przepisać, [ Unicode ]])
| 1234567 | Sub Utwórz plik tekstowy()Dim MyFSO jako nowy obiekt systemu plików, Pth jako ciągPth = "C:\temp\Myfile.txt"Ustaw Fn = MyFSO.CreateTextFile(Pth,True)Fn.Write "Dodaj tutaj mój własny tekst" & vbLf & "To jest druga linia"Fn.ZamknijNapis końcowy |
Ten kod tworzy plik tekstowy o nazwie „Myfile.txt” w folderze „Temp” na dysku „C:”, a następnie zapisuje w nim dwa wiersze tekstu.
Zauważ, że znak wysuwu wiersza jest łączony z pisanym ciągiem.
Jeśli ścieżka, do której piszesz, nie istnieje, wystąpi błąd. Możesz użyć metody „FolderExists”, aby to sprawdzić przed utworzeniem pliku.
Istnieje opcjonalny parametr, który w razie potrzeby nadpisuje istniejący plik - może to być prawda lub fałsz. Wartość domyślna to prawda.
Korzystanie z metod „Kopiuj”
Możesz użyć tych metod, aby skopiować plik lub folder do innej lokalizacji.
Programowanie VBA | Generator kodu działa dla Ciebie!
Skopiuj plik
Ta metoda skopiuje plik z jednego folderu do drugiego. Należy zauważyć, że kopiowanie zakończy się niepowodzeniem, jeśli lokalizacja docelowa ma ustawiony atrybut tylko do odczytu.
Składnia to:
Skopiuj plik źródło, Miejsce docelowe, [ przepisać ]
| 1234 | Sub CopyFile()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.CopyFile "C:\temp\*.txt", "C:\temp\myfolder\", prawdaNapis końcowy |
Ten kod utworzy kopię wszystkich plików tekstowych (txt) z „C:\temp” do „C:\temp\myfolder\”, nadpisując plik w razie potrzeby. Domyślnym ustawieniem dla opcji Overwrite jest True.
W nazwach plików można użyć symbolu wieloznacznego gwiazdki (*), ale symbolu wieloznacznego znaku zapytania (?) nie można używać do reprezentowania pojedynczych znaków.
Kopiuj folder
Możesz użyć tej metody, aby skopiować cały folder z jednej lokalizacji do drugiej.
Składnia to:
Kopiuj folder źródło, Miejsce docelowe, [ przepisać ]
| 1234 | Podfolder kopii()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.CopyFolder "C:\temp\*", "C:\users\richard\"Napis końcowy |
Ten kod kopiuje wszystkie foldery i pliki poniżej „C:\temp” do „C:\users\richard”. Nowo utworzony folder będzie miał nazwę „C:\users\richard\myfolder”, ponieważ „C:\temp” zawierał folder o nazwie „myfolder”.
Istnieją cztery możliwe wyniki przy użyciu tej metody:
- Jeśli miejsce docelowe nie istnieje, kopiowany jest folder źródłowy i zawartość.
- Jeśli miejsce docelowe już istnieje, wystąpi błąd.
- Jeśli miejscem docelowym jest folder, zostanie skopiowany folder źródłowy i jego zawartość. Jeśli opcja Overwrite jest ustawiona na False, aw miejscu docelowym znajduje się już kopia pliku, wystąpi błąd.
- Jeśli miejsce docelowe jest ustawione na tylko do odczytu, wystąpi błąd, jeśli nadpisanie ma wartość false.
Ta metoda zatrzymuje się na pierwszym napotkanym błędzie. Nie ma wycofania żadnych akcji, które zakończyły się powodzeniem przed wystąpieniem błędu.
Korzystanie z metod „Przenieś”
Te metody mogą służyć do przenoszenia plików lub folderów do innych lokalizacji. To to samo, co wycinanie z jednego miejsca i wklejanie w innym. Zwróć uwagę, że jeśli plik do przeniesienia jest otwarty, metoda Move zakończy się niepowodzeniem z błędem.
Przenieś plik
Ta metoda służy do przenoszenia określonego pliku do innej lokalizacji. Symbole wieloznaczne są dozwolone w ostatnim składniku ścieżki źródła.
Składnia to:
Przenieś plik źródło, Miejsce docelowe
| 1234 | Sub Przenieśplik()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.MoveFile "C:\temp\*", "C:\temp\mojfolder"Napis końcowy |
Ten kod przenosi wszystkie pliki znalezione w „C:\temp” do „C:\temp\myfolder”.
Foldery źródłowy i docelowy muszą istnieć, ponieważ folder docelowy nie jest tworzony automatycznie.
Ta metoda zatrzymuje się na pierwszym napotkanym błędzie. Nie ma wycofania żadnych akcji, które zakończyły się powodzeniem przed wystąpieniem błędu.
Programowanie VBA | Generator kodu działa dla Ciebie!
Przenieśfolder
Ta metoda przenosi określony folder z jednej lokalizacji do drugiej.
Składnia to:
Przenieśfolder (źródło, Miejsce docelowe)
| 1234 | Sub MoveFolder()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.MoveFolder "C:\temp\myfolder", "C:\temp\mydestination"Napis końcowy |
Ten kod przenosi folder „myfolder” i zawartość do folderu „mydestination”. „myfolder” jest skutecznie usuwany i tworzona jest „mydestination” wraz z zawartością „myfolder”.
Jeśli folder docelowy już istnieje, wystąpi błąd.
Korzystanie z metod „Usuń”
Te metody służą do usuwania plików lub folderów. Należy ich używać ostrożnie, ponieważ nie ma metod cofania ani cofania, jeśli coś pójdzie nie tak.
Usunąć plik
Spowoduje to usunięcie pojedynczych plików lub grupy plików przy użyciu symboli wieloznacznych.
Składnia to:
Usunąć plik specyfikacja pliku, [ zmuszać ]
| 1234 | Sub Usuńpliki()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.DeleteFile "C:\temp\*"Napis końcowy |
Ten kod usunie wszystkie pliki w folderze „C:\temp”
Parametr Force jest opcjonalny i jest ustawiony na True lub False. Jeśli jest ustawiony na True, pliki tylko do odczytu zostaną usunięte. Wartość domyślna to Fałsz.
Usunięty folder
Ta metoda usuwa określony folder i jego zawartość.
Składnia to:
Usunięty folder specyfikacja folderu, [ zmuszać ]
| 1234 | Sub Usuńfoldery()Dim MyFSO jako nowy obiekt systemu plikówMyFSO.DeleteFolder "C:\temp\Moje miejsce docelowe"Napis końcowy |
Ten kod usunie folder „MyDestination” i wszystkie pliki w tym folderze. Folder „temp” pozostanie.
Parametr Force jest opcjonalny i jest ustawiony na True lub False. Jeśli jest ustawiony na True, foldery tylko do odczytu zostaną usunięte. Wartość domyślna to Fałsz.
Symbole wieloznaczne mogą być użyte w ostatnim składniku ścieżki. Jeśli folder nie zostanie znaleziony, wystąpi błąd.
Ta metoda zatrzymuje się na pierwszym napotkanym błędzie. Nie ma wycofania żadnych akcji, które zakończyły się powodzeniem przed wystąpieniem błędu.
Programowanie VBA | Generator kodu działa dla Ciebie!
Inne metody w FSO
Otwórz jako strumień tekstowy.
Ta metoda otwiera określony plik jako obiekt Text Stream i umożliwia jego odczytywanie lub zapisywanie. Zaletą tej metody jest to, że może otworzyć dowolny typ pliku i wyodrębnić dostępny tekst.
Składnia to:
Otwórz jako strumień tekstowy ([ imode, [ format ]])
Parametr „iomode” umożliwia tylko odczyt (1), odczyt/zapis (2) i dołączanie (8). Parametr odczytu/zapisu nadpisuje plik.
Parametr „format” jest ustawiony na -2 dla domyślnego systemu, -1, aby otworzyć plik jako Unicode i 0, aby otworzyć plik jako ASCII (American Standard Code for Information Interchange).
| 1234567891011 | Podrzędny strumień tekstowy()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFile("C:\temp\myfile.txt")Ustaw ts = f.OpenAsTextStream(2)ts.Napisz „Mój nowy tekst”ts.ZamknijUstaw ts = f.OpenAsTextStream(1)s = ts.ReadLineMsgBox sts.ZamknijNapis końcowy |
Ten kod pobiera istniejący plik tekstowy i tworzy go jako obiekt za pomocą metody „GetFile”. Następnie otwiera strumień tekstu jako odczyt/zapis (2) i zapisuje wiersz tekstu. Plik jest następnie zamykany i ponownie otwierany jako przeczytany (1) i odczytywana jest z niego linia, która jest następnie wyświetlana jako okno komunikatu.
Zauważ, że przeczytany wiersz musi być umieszczony w zmiennej, zanim będzie mógł zostać wyświetlony w oknie komunikatu.
ŚcieżkaBudowania
Ta metoda spowoduje dodanie folderu lub nazwy pliku na końcu istniejącej ścieżki folderu. Tworzy to tylko ciąg tekstowy, a nie tworzy nowego folderu.
Składnia to:
ŚcieżkaBudowania (ścieżka, Nazwa)
| 12345 | SubPthPth()Dim MyFSO jako nowy obiekt systemu plikównp = MyFSO.BuildPath("C:\temp", "NowyFolder")MsgBox npNapis końcowy |
Spowoduje to wyświetlenie „C:\temp\ANewFolder”. Jeśli jednak chcesz faktycznie korzystać z tego folderu, musisz użyć metody „CreateFolder”.
Otwórz plik tekstowy
Ta metoda umożliwia otwieranie plików i odczytywanie ich lub zapisywanie zgodnie z ustawionymi parametrami. Działa podobnie do metody OpenAsTextStream.
Składnia to:
Otwórz plik tekstowy (Nazwa pliku, [ imode, [ Stwórz, [ format ]]])
Parametr „iomode” umożliwia ForReading, ForWriting i ForAppending. Parametr ForWriting zastępuje plik.
Parametr „create” to wartość logiczna. Prawda oznacza, że nowy plik zostanie utworzony, jeśli określona nazwa pliku nie istnieje. False oznacza, że żaden plik nie zostanie utworzony, jeśli nazwa pliku nie zostanie znaleziona. Wartość domyślna to Fałsz.
Parametr „format” można ustawić na TristateFalse, TristateMixed, TristateTrue i TristateUseDefault w zależności od tego, czy plik jest w formacie ASCII, czy Unicode.
| 1234567 | Sub OpenTxtFile()Dim MyFSO jako nowy obiekt systemu plikówUstaw ts = MyFSO.OpenTextFile("C:\temp\myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLineMsgBox sts.ZamknijNapis końcowy |
Ten kod odczyta linię z pliku tekstowego „myfile.txt”.
Zaletą metody OpenTextFile nad OpenAsTextStreamMethod jest to, że posiada rozwijane listy dla parametrów, które są bardziej znaczące niż próba zapamiętania odpowiednich wartości numerycznych dla różnych opcji parametrów.
Programowanie VBA | Generator kodu działa dla Ciebie!
Właściwości FSO
Dyski
Ta właściwość zawiera kolekcję dostępnych dysków na Twoim komputerze.
| 1234567 | Sub Drv()Dim MyFSO As New FileSystemObject, d As DriveUstaw Dr = MyFSO.DrivesDla każdego d In DrMsgBox d.DriveLetterNastępny dNapis końcowy |
Ten kod zwróci każdą literę dysku dostępną na twoim komputerze.
Nazwa
Zwraca nazwę określonego pliku lub folderu.
| 123456789 | Pod nazwaPrzykład()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFile("C:\temp\myfile.txt")i = f.Nazwa & " na Dysku " & UCase(f.Dysk) & vbCrLfi = i & "Utworzono: " & f.Data utworzenia & vbCrLfi = i & "Ostatni dostęp: " & f.DateLastAccessed & vbCrLfi = i & "Ostatnia modyfikacja: " & f.DateLastModifiedMsgBox iNapis końcowy |
Ten kod poda nazwę pliku i informacje o nim za pomocą właściwości Dysk.
Ścieżka
Właściwość Path oddzieli ścieżkę od specyfikacji pliku.
| 123456789 | Przykład ścieżki pomocniczej()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFile("C:\temp\myfile.txt")i = f.Ścieżka & f.Nazwa & " na Dysku " & UCase(f.Dysk) & vbCrLfi = i & "Utworzono: " & f.Data utworzenia & vbCrLfi = i & "Ostatni dostęp: " & f.DateLastAccessed & vbCrLfi = i & "Ostatnia modyfikacja: " & f.DateLastModifiedMsgBox iNapis końcowy |
Ten przykład działa w taki sam sposób, jak przykład Name, z tą różnicą, że zawiera teraz ścieżkę do pliku.
Programowanie VBA | Generator kodu działa dla Ciebie!
Rozmiar
Właściwość Size podaje rozmiar folderu lub pliku.
| 12345 | Sub FRozmiar()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFolder("C:\temp\")MsgBox f.RozmiarNapis końcowy |
Powyższy kod zwróci rozmiar folderu „C:\temp\”.
| 12345 | Sub FRozmiar()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFile("C:\temp\myfile.txt")MsgBox f.RozmiarNapis końcowy |
Powyższy kod zwróci rozmiar pliku „myfile.txt”.
Rodzaj
Właściwość type zwróci tekst dla typu pliku lub folderu.
| 12345 | Sub FType()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFolder("C:\temp\")MsgBox f. TypNapis końcowy |
Powyższy kod zwróci tekst „Folder plików”.
| 12345 | Sub FType()Dim MyFSO jako nowy obiekt systemu plikówUstaw f = MyFSO.GetFile("C:\temp\myfile.txt")MsgBox f. TypNapis końcowy |
Powyższy kod zwróci tekst „Dokument tekstowy”.
Zwróć uwagę na użycie „GetFolder” i „GetFile” w każdym przykładzie.
