怎么将窗口保存到日期文件夹中

⑴ 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的方法，都行的，就看你自己怎么写的了