How can make my program only access a particular folder for writing?

[Prithvirajck]

Hi,

How do I set access privilages to a shared folder through coding and make the folder accessible only by my code....
For ex: "Test" folder is a network share. can i make this folder accessed only by my program but not by any other user??

Rgds,
Prithvi

[mstraf]

AFAIK the permissions in Windows are set by user, not by application.
single files can be locked by an application, but I do not know about folders.
maybe if we give us more details there can be alternatives

[Phil Weber]

Marco is correct: you cannot grant permissions to an application, only to a user account. You could create a user account to be used only by your application. Grant the account permission to the shared folder, then use Windows API functions to have your application access the folder as that user. See http://support.microsoft.com/kb/q173011/ for more information.

[Prithvirajck]

Can guide me how single files can be locked by an application??
For ex: take CSV file.

Thanks & Regards,
Prithvi
http://www.prithvi.tk

[mstraf]

you can use the LockFile API, but in VB I strongly do NOT recommend it, it is much better to use the locking mechanism of the Open statement
http://msdn2.microsoft.com/en-us/lib...77(vs.60).aspx
Use:
Open myFile For ... Access ... Lock Read Write as #file
and specify in the dots the way you want to open the file

BTW your problem is very common, thus you can find a lot of third party components that allows you to crypt/decrypt entire folders, that you can open from your app with a password. But for that, I am sorry I do not have any suggestion because I never used any of them.

[Prithvirajck]

The following is the code, which ll take the first line of the "ManipulateCSV.txt" and split the words seperated by commas and pastes one by one in "strOPFile.txt".

Option Explicit
Sub main()
Dim strCurrentPath
Dim strLine, i, LowerVal, UpperVal
Dim Temp$
Dim strValues
Dim fn As Integer
strCurrentPath = App.Path
Temp$ = Dir(strCurrentPath & "\ManipulateCSV.txt")
fn = FreeFile
Do While Temp$ <> ""
    Open strCurrentPath & "\ManipulateCSV.txt" For Input Access Read Lock Read Write As #fn
        Do While Not EOF(fn)
            Line Input #fn, strLine
        Loop
    Close #fn
    strValues = Split(strLine, ",", -1, 1)
    LowerVal = LBound(strValues)
    UpperVal = UBound(strValues)
    Open strCurrentPath & "\strOpFile.txt" For Output Access Write Lock Read Write As #fn
    For i = LowerVal To UpperVal
        Write #fn, strValues(i)
    Next
    Close #fn
    Temp$ = Dir
Loop
End Sub

Now I or using another program being able to manipulate the above shown txt files. Is it possible to block these txt files from being manipulated by me or another program, exept for the above code??

Thanks & Regards,
Prithvi