Desktop yolu nasıl bulunur?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Herkesin bilgisayarında Desktop farklı yolda olabilir.
Örneğin benimkinde C:\Users\user\Desktop şeklinde, başkasında daha farklı olabilir.
Desktop yolunu bir hücreye yazdırmak istiyorum. Yardımlarınız için teşekkür ederim.
Saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kodu deneyiniz

 MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")

 

[Zeki Gürsoy]

Veya,

MsgBox Environ("userprofile") & "\Desktop"

.

 

[Tevfik_Kursun]

Sayın Necdet Hocam ve Sayın Zeki Hocam,
İlgilerinize çok teşekkür ederim. Ancak şimdi fırsat bulabildim bakmaya. Her ikisi de çalışıyor. Hücreye de yazdırıyor.
Acaba gösterdiği bilgiyi elde edebileceğim fonksiyon ya da KTF var mıdır?
Saygılarımla

 

[Orion1]

KTF;

Function masaustu() As String
masaustu = CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Function

 

[Tevfik_Kursun]

Sayın Evren Hocam,
İlginize ve katkınıza çok teşekkür ederim.
Saygılarımla

 

[Asri]

Yararlı olabilir, arşivde bulunsun.

Diğer environ komutları ve hemen yanında sonuçları.

environ("ALLUSERSPROFILE")    'C:\ProgramData
environ("APPDATA")    'C:\Users\deneme.kullanici\AppData\Roaming
environ("asl.log")    'Destination
environ("CommonProgramFiles")    'C:\Program Files (x86)\Common Files
environ("CommonProgramFiles(x86)")    'C:\Program Files (x86)\Common Files
environ("CommonProgramW6432")    'C:\Program Files\Common Files
environ("COMPUTERNAME")    'UZMANPC1
environ("ComSpec")    'C:\Windows\system32\cmd.exe
environ("FP_NO_HOST_CHECK")    'NO
environ("HOMEDRIVE")    'C:
environ("HOMEPATH")    '\Users\deneme.kullanici
environ("LOCALAPPDATA")    'C:\Users\deneme.kullanici\AppData\Local
environ("LOGONSERVER")    '\\UZMANPC1
environ("NUMBER_OF_PROCESSORS")    '4
environ("OS")    'Windows_NT
environ("Path")    'C:\Program Files (x86)\Microsoft Office\Office14\;C:\ProgramData\Oracle\Java\javapath;
environ("PATHEXT")    '.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC
environ("PROCESSOR_ARCHITECTURE")    'x86
environ("PROCESSOR_ARCHITEW6432")    'AMD64
environ("PROCESSOR_IDENTIFIER")    'Intel64 Family 6 Model 58 Stepping 9, GenuineIntel
environ("PROCESSOR_LEVEL")    '6
environ("PROCESSOR_REVISION")    '3a09
environ("ProgramData")    'C:\ProgramData
environ("ProgramFiles")    'C:\Program Files (x86)
environ("ProgramFiles(x86)")    'C:\Program Files (x86)
environ("ProgramW6432")    'C:\Program Files
environ("PSModulePath")    'C:\Windows\system32\WindowsPowerShell\v1.0\Modules\;C:\Program Files (x86)\Microsoft SQL Server\110\Tools\PowerShell\Modules\;C:\Program Files (x86)\AutoIt3\AutoItX
environ("PUBLIC")    'C:\Users\Public
environ("SCITE_USERHOME")    'C:\Users\deneme.kullanici\AppData\Local\AutoIt v3\SciTE
environ("SESSIONNAME")    'Console
environ("SystemDrive")    'C:
environ("SystemRoot")    'C:\Windows
environ("TEMP")    'C:\Users\deneme.kullanici\AppData\Local\Temp
environ("TMP")    'C:\Users\deneme.kullanici\AppData\Local\Temp
environ("USERDOMAIN")    'UZMANPC1
environ("USERDOMAIN_ROAMINGPROFILE")    'UZMANPC1
environ("USERNAME")    'deneme.kullanici
environ("USERPROFILE")    'C:\Users\deneme.kullanici
environ("WecVersionForRosebud.4B0")    '4
environ("windir")    'C:\Windows

 

[Tevfik_Kursun]

Sayın Asri Hocam,
Bak bu çok makbule geçti. Çok teşekkür ederim.
Saygılarımla

 

[assenucler]

Yanlış soru sorduğumu fark ederek, mesajımı sildim.