تشخيص ويندوز جاري در نت پد كه در كدام درايو است.

[amir0755]

سلام دوستان
من در سيستم خود چند ويندوز دارم مي خواهيم Batch File بنويسم كه درهريك از ويندوزها اجرا شد دايو جاري را تشخيص داده و از قسمت داكيومنت ان ويندوز بك اپ يا كپي تهيه كرده و با نام همان درايو ذخيره نمايد ودر موقع لزوم در همان درايو عمل restoreا انجام دهد . با تشكر

 

[S.H.M]

اگه درست فهمیده باشم

Private Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Const TOKEN_QUERY = (&H8)
Function GetuserProfileDir() As String
Dim Buffer As String
Dim hToken As Long
Buffer = String(256, Chr(0))
OpenProcessToken GetCurrentProcess, TOKEN_QUERY, hToken
GetUserProfileDirectory hToken, Buffer, 256
GetuserProfileDir = Replace(Buffer, Chr(0), "")
End Function
​

و برای نمایش دادن اون از این استفاده کنید:
​

GetuserProfileDir
​

 

[the_king]

سلام دوستان
من در سيستم خود چند ويندوز دارم مي خواهيم Batch File بنويسم كه درهريك از ويندوزها اجرا شد دايو جاري را تشخيص داده و از قسمت داكيومنت ان ويندوز بك اپ يا كپي تهيه كرده و با نام همان درايو ذخيره نمايد ودر موقع لزوم در همان درايو عمل restoreا انجام دهد . با تشكر

فایل Batch ای با نام Backup.bat برای پشتیبانگیری از محتویات Documents کاربر فعال در ویندوز جاری به درون پوشه ای
با نام Backup در همان درایو ویندوز جاری :

@ECHO OFF
MD "%SystemDrive%\Backup"
XCOPY /E /C /G /H /R /Y "%UserProfile%" "%SystemDrive%\Backup"
CLS
ECHO Backup operation finished (%SystemDrive%\Backup).

فایل Batch ای با نام Restore.bat برای بازگردانی نسخه پشتیبان به درون محتویات Documents کاربر فعال در ویندوز جاری
از درون پوشه ای با نام Backup در همان درایو ویندوز جاری :

@ECHO OFF
XCOPY /E /C /G /H /R /Y "%SystemDrive%\Backup" "%UserProfile%"
CLS
ECHO Restore operation finished (%SystemDrive%\Backup).

دو فایل Backup.bat و Restore.bat بصورت zip شده ضمیمه این پست می باشند.

 

[amir0755]

با تشكر از دوستان عزيزم برنامه اقاي
s.h.m اجرا نشد اما برنامه اقاي the_king همان درخواست اينجانب بوده اميدوارم در تمام مراحل زندگي موفق باشيد. amir0755