首次嘗試使用VB.NET應用程序。我正嘗試創建一個應用程序來複制應用程序的標準配置,然後爲該用戶自定義某些設置。我大部分的應用程序工作正常,但我遇到了資源文件的問題。將資源複製到磁盤
因爲文件的數量可能會更改我正在使用我的資源的子文件夾。我將文件設置爲內容並始終複製。我可以得到以下代碼在調試中工作,但似乎我沒有正確地進行構建。
For Each strFile In Directory.GetFiles(".\Files")
If Path.GetExtension(Path.GetFileName(strFile)) = ".vbs" Then
strDestination = strDataPath & "Scripts\"
Else
strDestination = strDataPath
End If
If Not Directory.Exists(strDestination) Then
Directory.CreateDirectory(strDestination)
End If
If My.Settings.chkForceOverwrite = True Then
Try
File.Copy(strFile, strDestination & Path.GetFileName(strFile), True)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Else
Try
File.Copy(strFile, strDestination & Path.GetFileName(strFile), False)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End If
Next
我已經嘗試了幾種複製數據的方法,但我發現沒有任何兼容性,如下所示。
Dim strFileName As String = Path.GetFileNameWithoutExtension(strFile)
File.WriteAllBytes(strDestination & strFile, My.Resources.strFileName, True)
有人能指出我在正確和正確的方向做到這一點嗎?目前,文件類型爲1 .vbs和1 .exe.config文件,但我可能需要在將來添加不同的文件類型。
什麼樣的結果,從這個代碼嗎? – matzone
你指的是File.WriteAllBytes? 'strFileName'不是'資源'的成員 –
不,第一個代碼..是否會產生不想要的結果? – matzone