Odredjivanje particije

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako da odredim na kojoj je particiji instaliran Windows u kojem se trenutno nalazi korisnik (moguce je da neko ima dva win-a)? I onda kopiram ili premestim fajlove u Windows\system32 i Program Files\Common Files\Microsoft Shared\DAO?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Prilagodi ovo svojim potrebama.

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()

Dim Path as String, strSave as string

'Create a buffer string
strSave = String(200, Chr$(0))
'Get the windows directory and append '\REGEdit.exe' to it
Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))

CopyFile "C:\Proba.txt", Path & "Put gdje treba da se kopira" & "Ime Fajla", 0
End Sub