< návrat zpět

MS Excel


Téma: VBA vs Folder rss

Zaslal/a 6.2.2011 21:16

Čaute.

Mám otázku: je možné skontrolovať folder či sú v ňom požadované vecičky napr. fotky pomocov VBA.
To znamená pred vložením fotky pomocou makra do zošitu
skontrolujem prítomnosť fotiek v zložke(folder)
dik

Zaslat odpověď >

icon #004031
Poki
existenci souboru ve slozce lze overit takto:
Sub File_Exist()
Dim FSO
Dim File As String
Dim Path As String
Dim FullName As String
Path = "C:\Documents and Settings\pokorny9\Plocha\Download\"
File = "obrazek.jpg"
FullName = Path & File
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(FullName) Then
MsgBox File & " NENÍ umístěn v zadane složce", vbInformation, "Soubor nenalezen"
Else
MsgBox File & " je umístěn v zadane složce", vbInformation, "Soubor nalezen"
End If
End Sub
citovat
#004040
avatar
Dik funguje presne to som potreboval.
Este sa chcem spýtať na "Scripting.FileSystemObject" je to príkaz? Čo znamená?
Ešte raz dík.citovat
icon #004047
Poki
FileSystemObject je objekt, ktery je obsazen v knihovne Scrrun.dll, ktery umoznuje praci s adresari a soubory.
Aby bylo mozne ho ve VBA pouzit, musi se tento object nejprve 'vytvorit' (radek: Set FSO = CreateObject("Scripting.FileSystemObject")).
Potom uz muzete pouzivat veskere jeho vlastnosti a metody (viz napoveda nebo google ).
4citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21