ฉันใช้ vbscript ต่อไปนี้ แต่ดูเหมือนว่าจะไม่สามารถคัดลอกไฟล์ได้ ถ้าฉันใช้ไฟล์พา ธ สัมบูรณ์มันใช้งานได้
วิธีการตั้งค่าเส้นทางเหล่านี้ใน windows 7 ให้ทำงาน
Const DestinationFile = "%UserProfile%\Desktop\plrplus.dotm"
Const SourceFile = "%UserProfile%\Desktop\PLRPlus\plrplus.dotm"
Set fso = CreateObject("Scripting.FileSystemObject")
'Check to see if the file already exists in the destination folder
If fso.FileExists(DestinationFile) Then
'Check to see if the file is read-only
If Not fso.GetFile(DestinationFile).Attributes And 1 Then
'The file exists and is not read-only. Safe to replace the file.
fso.CopyFile SourceFile, "%UserProfile%\Desktop\plrplus.dotm" True
Else
'The file exists and is read-only.
'Remove the read-only attribute
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
'Replace the file
fso.CopyFile SourceFile, "%UserProfile%\Desktop\plrplus.dotm", True
'Reapply the read-only attribute
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
End If
Else
'The file does not exist in the destination folder. Safe to copy file to this folder.
fso.CopyFile SourceFile, "%UserProfile%\Desktop\plrplus.dotm", True
End If
Set fso = Nothing
คุณต้องขยายตัวแปร env ด้วยตัวคุณเอง ดู ตัวแปรสภาพแวดล้อม
—
DavidPostill