메뉴
이 페이지에서
실무 위키›VBA 코드›GetDesktopPath

GetDesktopPath

Function

사용 중인 컴퓨터의 바탕화면 경로를 반환하는 VBA 사용자 지정 함수입니다.

GetDesktopPath 코드 미리보기
구문 = GetDesktopPath ( [BackSlash] )
인수구분 형식 설명
BackSlash 선택 Boolean
바탕화면 경로 맨 마지막에 백슬래쉬(\) 를 포함할지 여부를 결정합니다. 기본값은 TRUE 입니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요
Module1 · GetDesktopPath
Public Function GetDesktopPath(Optional BackSlash As Boolean = True) As String
'########################################################
'사용중인 PC의 바탕화면 경로를 출력합니다.
'https://www.oppadu.com/vba-fileexists-함수/
'########################################################
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")
If BackSlash = True Then
GetDesktopPath = oWSHShell.SpecialFolders("Desktop") & "\"
Else
GetDesktopPath = oWSHShell.SpecialFolders("Desktop")
End If
Set oWSHShell = Nothing
End Function
Sub 바탕화면경로_()
MsgBox "현재 사용중인 컴퓨터의 바탕화면 경로는" & vbNewLine & _
"[[ " & GetDesktopPath & " ]]" & vbNewLine & _
"입니다."
End Sub

활용 예제

바탕화면 경로를 안내 메시지로 표시
Sub 바탕화면경로_()
MsgBox "현재 사용중인 컴퓨터의 바탕화면 경로는" & vbNewLine & _
"[[ " & GetDesktopPath & " ]]" & vbNewLine & _
"입니다."
End Sub

안내사항

바탕화면 경로는 윈도우 사용 환경에 따라 달라질 수 있으므로, 경로를 직접 지정하지 말고 WScript.Shell 개체에서 받아오는 것을 권장합니다.
댓글 1
5 (1개 평가)
강민준🤗
강민준🤗 2024.08.11 12:24
좋은 강의 감사합니다.
스크랩 완료