شر کردن یک پوشه با برنامه

[majjjj]

چجوری یک پوشه روبا برنامه شر میکنن

[Mbt925]

منظورتونو رو واضح تر بگید.

[مهران رسا]

فکر کنم منظورشون اینه که چه طوری یک پوشه رو توسط برنامه نویسی در VB توی شبکه Share کنیم . (به اشتراک بذاریم) ...

قبلاً یک بحث کوچولو در این مورد شده بود . ولی نتیجه ای نداشت . من هم متشاق شدم بدونم ...

[majjjj]

منظورم همینه که M8SPY. عزیز گفتن

[sepehr.net]

نظر خاصی ندارم

[hamed aj]

با سلام



نظر خاصی ندارم

دوستان من آدمی نیستم که بخوام خودم رو بالاتر و برتر از بقیه دوستان فرض کنم. ولی جناب sepehr.net ، بعد از حدود پنج ماه از تاریخ این تاپیک ، واقعاً شرمنده کردین که پاسختون رو اعلام فرمودین

قصد جسارت نداشتم فقط خواستم بگم که قبل از زدن پست، یه نگاه به تاریخ آخرین پست بندازین


در ضمن به بهانه بالا اومدن این تاپیک
به اشتراک گذاشتن پوشه ها در VB6 امکان پذیره و من اینکار رو قبلاً انجام دادم. دوستان و مخصوصاً majjjj عزیز اگر هنوز در این باره مشکل دارن ، خبر بدن تا کد رو براشون بگذارم

[Black_Strom]

فقط اینا می دونم که shell32 درگیره با این قضیه ...

[مهران رسا]

فقط اینا می دونم که shell32 درگیره با این قضیه ...

سلام .
لطفاً یک نمونه برای آشنایی بیشتر دوستان قرار بدید .

ممنون

[itmicro]

سلام دوستان.این کار زیاد هم سخت نیست.از کد زیر استفاده کنید.اگر نتونستید ازش استفاده کنید بگید تا یک پروژه از اون را واسه ی دانلود بزارم

Try


Dim managementClass AsNew ManagementClass("Win32_Share")
Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")

inParams("Description") = "My Description"

inParams("Name") = "Share Name"

inParams("Path") = "C:\My Folder"

inParams("Type") = &H0
Dim outParams As ManagementBaseObject = managementClass.InvokeMethod("Create", inParams, Nothing)
If Convert.ToUInt32(outParams.Properties("ReturnValue").Value) <> 0 Then

MessageBox.Show("Unable to share directory.")
else
MessageBox.Show("Shared folder successfully!")
EndIf

Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry

[m_vb1386]

اگه ميشه يك پروژه بزارين يا ريفرنس هاي برنامه رو معرفي كنيد
ممنون

[babol-hacker]

سلام به مهی دوستان منم خیلی دنباله این جوابم اگه میشه اعضا واسه جواب این تایپیک همراهی کنند
من یک برنامه مشاور املاک با یکی از دوستام نوشتم که می خوام اونو چند کاربره کنم یعنی چند کاربر و سیستم که بهم شبکه هستن تو بانک اطلاعاتبریزند من می خواستم مسیر فایل شر شده در سیستم دوم که همان مسیر فایل اصلی در کامپیوتر سرور هست و برنامه داشته باشه و یک بانک مجزا که بعد از پر کردن به اون مسیر رپلیس کنه اما اگه بشه راهی راهت تر واسه شر و خوندن و نوشتن مستقیم پیدا بشه ممنون می شم

[mpmsoft]

توسط این دستور می تونید

Shell "net share c=c:\"

[babol-hacker]

توسط این دستور می تونید

Shell "net share c=c:\"
می خوتم بدونم که با این دستور درایو کامپیوتر سرور شر می شه؟ بد cilent چطوری و با چه دستوری لیست درایو های شر شده و بخونه؟ اصلا میشه همزمان تو اکسس رکورد اضافه کرد؟

[mpmsoft]

اینم کدی برای بدست آوردن لیست Share ها


Option Explicit
Dim strComputer
Private Sub ListShares(strComputer)
Dim strObject
Dim colShares
Dim objWMIService, objShare

Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")

For Each objShare In colShares
MsgBox objShare.Name & " [" & objShare.Path & "]"
Next

End Sub

Private Sub Form_Load()

Do
strComputer = InputBox("Please enter name of a computer (or . for local host)", "Input")
Loop Until strComputer <> ""

ListShares (strComputer)

End Sub

[babol-hacker]

با تشکر از شما دوستان و راهنمایی هایتان چند تا سوال دیگه داشتم که اگه می شه منو راهنمایی کنید....
یکی اینکه لیست اسم کامپیوتر های شبکه شده و بدست بیارم
و اینکه من با اکسس و هم با sql کار می کنم و بانکم اکسس هست و می خوام بدونم تو کانکشن استرینگ با adodc میشه برنامه و به بانکی که تو درایو شر شده هست وصل کرد اگه یک سورس باشه ممنون می شوم با تشکر فراوان...

[mpmsoft]

با adodc میشه برنامه و به بانکی که تو درایو شر شده هست وصل کرد اگه یک سورس باشه ممنون می شوم با تشکر فراوان...

بله برای اکسس امکانش هست ولی برای SQL باید IP کامپیوتر مرکزی رو بدید