Question

On my machine, it s here:

string downloadsPath = Path.Combine(
   Environment.GetFolderPath(Environment.SpecialFolder.UserProfile),
   "Downloads");

但是,在一个同事机器上,这套手套确实存在,他的下载夹在我的文件夹中。 www.un.org/Depts/DGACM/index_french.htm

* Edit:事实上,它发现他不是用自己的机器操作,而是一台Windows 2003机器。

Answer 1

Windows没有界定“CSIDL,供下载文件夹使用,没有通过

然而,新的Vista Known Folder PIC/Ampendent与http://msdn.microsoft.com/en-us/library/d37845728S.85%29.aspx"rel=“noretinger”编码>LDERID_Dres/。获得实际价值的最容易途径是:P/invoke > 编码>SHGetKnown FolderPath。

public static class KnownFolder
{
    public static readonly Guid Downloads = new Guid("374DE290-123F-4565-9164-39C4925E467B");
}

[DllImport("shell32.dll", CharSet=CharSet.Unicode)]
static extern int SHGetKnownFolderPath([MarshalAs(UnmanagedType.LPStruct)] Guid rfid, uint dwFlags, IntPtr hToken, out string pszPath);

static void Main(string[] args)
{
    string downloads;
    SHGetKnownFolderPath(KnownFolder.Downloads, 0, IntPtr.Zero, out downloads);
    Console.WriteLine(downloads);
}

注:P/invoke在胎盘上。净额是不正确的,因为它没有使用统法协会编码的特性。我也利用了一个事实,即该意向书的传承记忆由新闻部长分配。上文P/invoke的缺席宣誓书,是用“CoTaskMemFree

谨慎的做法是,这属于Vista和APIC,并不试图将其称作XP/2003或下级。

Answer 2

您可使用微软网络的Windows Code Pack。

参考:Microsoft.WindowsAPICodePack.Shell.dll。

Need the following namespace:

using Microsoft.WindowsAPICodePack.Shell;

简单使用:

string downloadsPath = KnownFolders.Downloads.Path;

Answer 3

The VB. 我使用的净功能

<DllImport("shell32.dll")>
Private Function SHGetKnownFolderPath _
    (<MarshalAs(UnmanagedType.LPStruct)> ByVal rfid As Guid _
    , ByVal dwFlags As UInt32 _
    , ByVal hToken As IntPtr _
    , ByRef pszPath As IntPtr
    ) As Int32
End Function

Public Function GetDownloadsFolder() As String

    Dim Result As String = ""
    Dim ppszPath As IntPtr
    Dim gGuid As Guid = New Guid("{374DE290-123F-4565-9164-39C4925E467B}")

    If SHGetKnownFolderPath(gGuid, 0, 0, ppszPath) = 0 Then
        Result = Marshal.PtrToStringUni(ppszPath)
        Marshal.FreeCoTaskMem(ppszPath)
    End If
    
    as recommended by Ray (see comments below) 
    Marshal.FreeCoTaskMem(ppszPath)

    Return Result
End Function

在我的节目中,我呼吁它把一些CSV档案转移到另一个文件夹中。

    Dim sDownloadFolder = GetDownloadsFolder()
    Dim di = New DirectoryInfo(sDownloadFolder)

     Move all CSV files that begin with BE in specific folder
     that has been defined in a CONFIG file (variable: sExtractPath

    For Each fi As FileInfo In di.GetFiles("BE*.csv")
        Dim sFilename = sExtractPath & "" & fi.Name
        File.Move(fi.FullName, sFilename)
    Next

友情链接