▶ 백업커맨드 1) 개인의 데이타를 백업할 때 사용하세요.. xcopy \\pc1-name\folder-name\*.* "\\pc2-name\folder-name" /d /s /c /y /i 소스폴더아래의 모든 파일을 바뀐것만 타겟폴더로 xcopy한다.
2) 파일서버의 데이타를 백업할 때 사용하세요.. (보안속성,소유권,감사 속성까지) xcopy e:\*.* \\backupsrv\e$\ /d /e /c /y /i /h /g /k /o /x e드라이브의 모든 파일을 빈폴더를 포함해서 타켓폴더로 xcopy한다. (바뀐것만, 보안속성 포함 )
/d : 소스파일과 타겟파일을 비교하여 새로운 것만 복사한다. /e : 모든 서브디렉토리를 포함하여 복사한다. (빈 폴더 포함) --> 빈폴더 제외는 /s 옵션 /c : 오류가 발생하더라도 중단하지 말고 계속 복사 (깨진 파일때문에 복사가 중단되는 일이 있음) /y : 덮어쓰기 할때 묻지않고 복사한다. /i : 복사할 대상이 존재하지 않거나 하나이상의 파일을 복사할때 타켓을 디렉토리로 인식한다. /h : 숨김 파일이나 시스템 파일도 복사한다. /g : 암호화파일을 복사 /k : 파일의 속성을 복사 (이 옵션을 빼면 read-only 속성을 리셋한다.) /o : 파일의 소유권과 ACL 정보까지 복사한다. /x : 감사 속성을 복사한다.
Sub 표시방법변경()
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContact As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim objContactsFolder As Outlook.MAPIFolder
Dim obj As Object
Dim strFirstName As String
Dim strLastName As String
Dim strName As String
On Error Resume Next
Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
Set objItems = objContactsFolder.Items
For Each obj In objItems
If obj.Class = olContact Then
Set objContact = obj
With objContact
strFirstName = .FirstName
strLastName = .LastName
If (strLastName = "" Or strFirstName = "") Then
strName = .CompanyName
Else
strName = strLastName + strFirstName
End If
.FileAs = strName + IIf(.JobTitle <> "", " " + .JobTitle + "님", "")
If (.Email1Address <> "" And strName <> "") Then
.Email1DisplayName = .FileAs
End If
If (.Email2Address <> "" And strName <> "") Then
.Email2DisplayName = .FileAs
End If
If (.Email3Address <> "" And strName <> "") Then
.Email3DisplayName = .FileAs
End If
.Save
End With
End If
Err.Clear
Next
Set objOL = Nothing
Set objNS = Nothing
Set obj = Nothing
Set objContact = Nothing
Set objItems = Nothing
Set objContactsFolder = Nothing
End Sub
(0) 
(0)
댓글을 달아 주세요