怎麼將窗口保存到日期文件夾中

⑴ windows下 如何使用命令將一個現有的文件復制到一個以當前時間創建的文件夾中

比如說，文件名 xxx.txt 文件存在於你的c盤windows文件夾。你要把它復制到你D盤下的win文件夾中。請用dos命令中的命令來完成。具體操作如下：
點擊左下角的『開始』菜單，找到『運行』。（此步聚可以按鍵盤最下面的win鍵+R）
這樣出來了運行窗口，在裡面鍵入 cmd ，點運行。
這時應該出來了黑色的dos窗口。
在裡面這樣打
cd\ 回車
C:\windows\xxx.txt d:\win\ 回車(txt與d中間有個空格)

解說： 路徑\文件名 路徑\ 把一個文件拷貝到另一個地方。

⑵ 如何把網頁保存進一個文件夾中

1、電腦打開瀏覽器，打開要保存的網頁。

⑶ 求大神指點，excel中怎樣設置可以在點保存的時候，自動根據系統日期另存為到指定文件夾

假如將文件另存到D:123文件夾中，代碼如下：

PrivateSubWorkbook_AfterSave(ByValSuccessAsBoolean)
IfSuccessThen
WithThisWorkbook
.ChangeFileAccess3
FileCopy.FullName,"d:123"&Split(.Name,".")(0)&Format(Now,"yyyymmdd-hhmmss.")&Split(.Name,".")(1)
.ChangeFileAccess2
EndWith
EndIf
EndSub

代碼位置不是在模塊里：

⑷ VB中如何復制指定文件到指定文件夾，並以當前日期存放

VB，將文件復制到指定目錄下的同名文件夾中 (2008-09-19 09:43:17)轉載標簽： it分類： GIS二次開發界面如下： '——————————————————————————
'名稱：FindFolderInAppointFolder
'作者：羅簡單
'日期：2008-9-19
'功能：查找指定文件夾下的所有文件夾
'——————————————————————————
Public Sub FindFolderInAppointFolder1(ByVal myPath As String)
'函數dir返回一個滿足指定類型或指定文件屬性的文件名，目錄名或卷標名。dir函數的語法結構為:
'Member Function Dir[(Pathname[,attributes])] As String
Dim myFolderName As String
'包括隱藏和系統的
myFolderName = Dir(myPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)

'循環文件夾
Do While myFolderName <> ""
If myFolderName <> "." And myFolderName <> ".." Then '忽略當前目錄和子目錄
'確保得到的是文件夾
If (GetAttr(myPath & myFolderName) And vbDirectory) = vbDirectory Then
'在立即窗口中列印文件夾的名字
Debug.Print myFolderName
End If
End If

myFolderName = Dir '得到下一個文件名
LoopEnd SubSub test_Findfolder()
Dim myPath As String
myPath = "C:\222"

FindFolderInAppointFolder1 myPath
End Sub'——————————————————————————
'名稱：FindFolderInAppointFolder
'作者：羅簡單
'日期：2008-9-19
'功能：查找指定文件夾下的指定文件夾
'——————————————————————————
Public Function FindFolderInAppointFolder(ByVal myPath As String, ByVal myAppointFolderName As String) As String
'函數dir返回一個滿足指定類型或指定文件屬性的文件名，目錄名或卷標名。dir函數的語法結構為:
'Member Function Dir[(Pathname[,attributes])] As String
Dim myFolderName As String
'包括隱藏和系統的
myFolderName = Dir(myPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)

'循環文件夾
Do While myFolderName <> ""
If myFolderName <> "." And myFolderName <> ".." Then '忽略當前目錄和子目錄
'確保得到的是文件夾
If (GetAttr(myPath & myFolderName) And vbDirectory) = vbDirectory Then
If myFolderName = myAppointFolderName Then
FindFolderInAppointFolder = myPath & myFolderName & ""

Exit Function
End If
End If
End If

myFolderName = Dir '得到下一個文件名
LoopEnd Function'批量復制文件到指定目錄下的同名文件夾中
Private Sub cmdCopy_Click()
Dim myFSO As New Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim myFile As Scripting.File
Dim RootFolder As String

RootFolder = Text1.Text
Set myFolder = myFSO.GetFolder(RootFolder)
Dim i As Integer
i = 0
For Each myFile In myFolder.Files
Select Case UCase(myFile.Type)
Case "WL 文件"
'如果是線文件，則將它復制到指定目錄下
Dim str_Destination As String
str_Destination = FindFolderInAppointFolder(Text2.Text, Left(myFile.Name, Len(myFile.Name) - 3))

'Debug.Print str_Destination
myFile.Copy str_Destination, True
i = i + 1
Case Else

End Select
Next

MsgBox "批量復制完畢，共賦值了" & i & "個文件", vbInformation, "批量復制"
End SubPrivate Sub cmdPath_Click(Index As Integer)
Dim myShell As New Shell32.Shell
Dim myRootFolder As Shell32.Folder3
Set myRootFolder = myShell.BrowseForFolder(0, "選擇路徑", 0)
'如果單擊了取消鍵
If myRootFolder Is Nothing Then Exit Sub
Select Case Index
Case 0
Text1.Text = myRootFolder.Self.Path
Case 1
If Right(myRootFolder.Self.Path, 1) <> "" Then
Text2.Text = myRootFolder.Self.Path & ""
Else
Text2.Text = myRootFolder.Self.Path
End If
End Select
End SubPrivate Sub Form_Load()
'在親、娘家文本框內讀入路徑
Dim strQinJ As String, strNiangJ As String
strQinJ = GetSetting("BatchCopy", "Path", "QinJia")
strNiangJ = GetSetting("BatchCopy", "Path", "NiangJia")

Text1.Text = strNiangJ: Text2.Text = strQinJ
End SubPrivate Sub Form_Unload(Cancel As Integer)
'將親、娘家路徑保存入注冊表
SaveSetting "BatchCopy", "Path", "NiangJia", Text1.Text
SaveSetting "BatchCopy", "Path", "QinJia", Text2.Text
End Sub

⑸ 在任務欄中如何將某些窗口放入文件夾

你好朋友；
我告訴你好不好；
windows系統不能實現你說的這種功能；
windows系統根本沒有你說的這種功能；
你最多隻能右鍵任務欄；屬性；然後你把那個分組相似任務欄窗口復選框打勾；確定；
這樣以後你如果運行了很多一樣的程序後在任務欄中那些屬於同一個程序創建的窗口就會變成同一個窗口組；你點擊這個窗口組後會彈出這個程序創建的所有窗口了；
具體你可以自己這樣實驗一下你就知道我說的是什麼樣了；像你說的那樣根本不能實現；明白了嗎

⑹ 怎樣以日期新建文件夾，並將指定文件存到裡面去

@echo off
set d=%date:~,10%
md e:\aa\%d%
d:\bb e:\aa\%d% /y

把上面的批處理保存為e:\aa\cc.bat ，在cmd運行下面的命令添加到定時每天運行
at 17:00 /every:M,T,W,TH,F,S,SU e:\aa\cc.bat

⑺ 怎麼把一張網頁上的所有圖片都保存到文件夾里

1、首先，我們打開需要保存圖片的網頁。

⑻ Access如何做窗體，輸入日期後，自動到對應文件夾把當天的文件導入指定表

Private Sub 入庫_click()
'默認你的後面的textbox的名稱就是前面的名稱
'這里的數據類型可能要轉換，比如價格可能要轉換成double（CDbl()），購買日期轉行成日期時間型（CDate()）
'假設你的數據表是aa，欄位名和界面顯示是一樣的
Dim Rs As ADODB.Recordset
'在插入前建議你在aa表裡查查這條記錄是否已經存在，如果已經存在則給出提示（查詢條件看你怎麼設置的主鍵了）
Rs = objADO.GetRs("insert into aa (書名,定價,作者,圖書類別,出版社,介質,購買日期,內容簡介) values (" & 書名.Text & "," & vbCrLf & _
"定價.text & ", " & 作者.text & ", " & 圖書類別.text & ", " & 出版社.text & ", " & 介質.text & ", " & 購買日期.text & ", " & 內容簡介.text & ")
'這里如果表aa的欄位多於界面顯示的也沒關系，只會給你aa後面括弧里的欄位賦值，這里後面values的順序必須和前面的對應
'正確插入後建議給個提示，同時看看有沒有必要把界面的所有值清空（圖書類別.text = ""）
'這里的objADO建議這么定義Public objADO As SqlServer，有別的查詢也可以直接用，你自己怎麼定義的就換成你自己的
'GetRs的定義在下面，你也可能是dim strsql as string，然後strsql = （上面的插入語句），然後用下面Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly的方法，都行的，就看你自己怎麼寫的了