Environ("????"), CreateObject("WScript.Shell").SpecialFolders("???? ") parametreleri

[hsayar]

Environ("????"), CreateObject("WScript.Shell").SpecialFolders("???? ") parametreleri

Environ("????"), CreateObject("WScript.Shell").SpecialFolders("????") parametreleri nelerdir?

Bu konuda genel bir açıklama varmıdır?

 

[Zeki Gürsoy]

Environ fonksiyonunda index yerine name de yazabilirsiniz. Ör: Environ("userprofile") oturum hesabını döndürür.
Environ listesi..

Sub System()
Dim Say As Byte, i As Byte
 
Cells(1, 1) = "INDEX":Cells(1, 2) = "ADI": Cells(1, 3) = "TANIM"
 
For i = 1 To 30
    Say = InStr(1, Environ$(i), "=")
    Cells(i + 1, 1) = i
    Cells(i + 1, 2) = Left$(Environ$(i), Say - 1)
    Cells(i + 1, 3) = Mid$(Environ$(i), Say + 1, Len(Environ$(i)) - Say)
Next
End Sub

Wscript için de kullanım mantığı aynıdır. Name ya da index tir.

 

[hsayar]

hocam environ için verdiğiniz kodlara teşekkür ederim

CreateObject("WScript.Shell").SpecialFolders("???? ") parametreleri nelerdir?
için cevaplarınızı bekliyorum.

 

[Zeki Gürsoy]

Şunlardır:

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates​

Sub Ozel_Klasorler()
Dim Wsh As WshShell, a As String, i As Byte
 
Set Wsh = New WshShell
 
With Wsh
    For i = 0 To .SpecialFolders.Count - 1
        a = a & i & "-) " & .SpecialFolders(i) & Chr(10)
    Next
End With
 
MsgBox a, vbInformation, "::.. Özel Klasörler ..::"
End Sub

 

[hsayar]

teşekkür ederim hocam.

yalnız
Dim Wsh As WshShell
satırında user defined type diyor ilgili Refences nedir?

 

[Zeki Gürsoy]

"Windows Script Host Object Model"

 

[hsayar]

Teşekkür ederim hocam...
şimdide Aşağıdaki satırda object required 424 hatası veriyor
' a = a & i & "-) " & .SpecialFolders(i).Name & Chr(10)

 

[Zeki Gürsoy]

".Name" olmamalı. Afedersiniz.

 

[hsayar]

Estağfurlluha o kadar işinizin arasında olacak bunlar.
teşekkürler hocam