用coding來製作分享檔案夾

ReyesChuah

Dim DirInfo As New DirectoryInfo(strPath)
            Try
            If DirInfo.Exists = FALSE Then
               'http://abstractvb.com/code.asp?F=20&P=1&A=954
               With DirInfo
                    .Create()
                End With
                '-------------------------------------------------
                from = www.dotnetspider.com/qa/Question18586.aspx
                我只是translate 重C# 到 vb.net
                Dim info As ProcessStartInfo = New ProcessStartInfo
                info.UseShellExecute = True
                info.WindowStyle = ProcessWindowStyle.Hidden
                info.Arguments = "/c net share Image3=C:\Image3"
                info.FileName = "cmd"
                System.Diagnostics.Process.Start(info).Start()
                '--------------------------------------------------
                Return True
            ELSE
                EXIT FUNCTION
            End If
        Catch
            Return False
        End Try
只是想分享一下，如何製造一個分享檔案。
不要砲轟我，我只是想讓一些，想要用到這個function的同好們有個參考質料而已

[ 本帖最后由 ReyesChuah 于 10-10-2006 05:14 PM 编辑 ]