Systémová složka

Systémová složka otázka

VB6/VBA

28. 6. 2010 8:48

Jaromír Kaplan

-2 10

Je v nějaké systémové proměnné uloženy systémové složky?

Např: "C:\WINDOWS\SYSTEM32" apod?

Díky

nahlásit spam

odpovědět

28. 6. 2010 9:59

Jaroslav Konopásek

7 19

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
systemova_slozka = fso.GetSpecialFolder(1).Path
Set fso = Nothing

nebo

Dim Cesta As String
Cesta = String(255, Chr(0))
GetSystemDirectory Cesta, 255
systemova_slozka = Left(Cesta, InStr(1, Cesta, Chr(0)) - 1)

nahlásit spam

odpovědět

GetSystemDirectory, nechybí deklarace? API?

...

Možná použít vba(vb6) funkci Environ:

nejspíš cestu vytáhnout z Environ("Path")

Link je pro Excel VBA, ale funkce v rámci

office bude fungovat, doufám i ve vb6:

http://www.excelvba.estranky.cz/clanky/t...

(argumenty fce lze vypsat makrem do listu excelu)

...

Podobné téma s Environ dokonce přímo zde:

http://www.vbnet.cz/forum-tema--931-zjis...

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

28. 6. 2010 19:11

Jaroslav Konopásek

7 19

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz