DosSQL

 

Powershell

========

http://technet.microsoft.com/en-us/library/ee176900

 

DOS
===
Find all strings for this and  all sub directories for all files where string =lusp and output to txtfile use >> to append
finstr /s "lusp" *.* > C:\test\txt.txt

> dir /B *.gz >1.txt  creates and fills a text file with result of dir command

Path =%path%;C:\program files\winzip
winzip32.exe -e 194961_2009_11_11T1448.xml.gz
winzip32.exe -e 194974_2009_11_11T1753.xml.gz

C:\CSW>copy /b j1.txt+j2.txt+j3.txt+j4.txt CARROLL.TXT
J1.TXT
J2.TXT
J3.TXT
J4.TXT

 Combine multiple files using wildcards

copy *.txt Final.txt

Add following dos command information
he following is a dos command which should help you with your file space search problem.
dir /s /-c /a |find "bytes"|find /v "free"|find "Directory" 
Try it in the temp directory first.
You then might want to run it with the following

dir /s /-c /a |find "bytes"|find /v "free"|find "Directory" >Result.txt

This will create a text file called result with the contents of the command result.

also  the following may be useful
dir /b/s  (files and paths)
dir /S /Q /TW  (last written to and owner.
 

 VBS

===


'create a .vbs file out of this script
' call it cscript.exe scriptname.vbs > result.txt from command line
' job done
' lists directory, file and size

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\dheal"

Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo "Folder|" & objFolder.Path & "|" & objfolder.size
Set colFiles = objFolder.Files
For Each objFile in colFiles
     Wscript.Echo "File|" & objfile.path & "|" & objFile.size
Next
'Wscript.Echo

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo "Folder|" & Subfolder.Path & "|" & subfolder.size
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
            Wscript.Echo "File|" & objfile.path &"|" & objFile.size
        Next
        Wscript.Echo
        ShowSubFolders Subfolder
    Next
End Sub

 

SQL
===
Select
a.*, b.* from a
Left join b on a.id = b.id
 and a.co = b.co
where b.co is null

create table t (a int)
insert into t values (1)
insert into t values (1)
insert into t values (2)
insert into t values (3)


select * from t

select COUNT(c.a) from
(select distinct A from t) c

 

ccol pivots

* #Pivot(SELECT distinct,,as SubTotalFROM dbo.Project_PopExclusion TableDate (SUM(SubTotal)FOR [Reason] IN (

select

 

into

 

FROM

 

 

 

Deal_id [Deal_id]

 

reason [Reason]

 

1

 

 

)

 

PIVOT

 

 

 

 

[Start Date after 13 Apr 2015],,,

 

 

 

[CLIENT_NUMBER =6198895]

 

[Project Excl: Fixed]

[Project Excl: Trade]) PivotTable

 

 

 

 

Microsoft

========

Outlook 2007 - Cannot turn off the reminder. You may be reminded again. Cannot locate recurrnence information for this appointment. I get this message "Outlook 2007 - Cannot turn off the reminder. You may be reminded again. Cannot locate recurrnence information for this appointment." when I attempt to dismiss reminders in Outlook 2007. I have attempted to locate the actual event in my calendar, but it is not there. So the part about "locating the reocurrence" is absolutely true. Now how can I clear the reminder?? Reply
Two things to try.  The first is to start Outlook once with the /cleanreminders command switch.  Press WinKey+R or click Start>Run.  In the Open field, type
outlook.exe /cleanreminders
and press enter.  Be sure to include the space.
If that doesn't help, open your Calendar and switch to a table view like Events or List.  Add the Reminder column to the header line using Field Chooser (right-click the header and then click Field Chooser.  Slide down the "Frequently-used fields" list that will appear until you see Reminder.  Click and drag it to the header line).  Now, right-click the Reminder column header and select "Group by this Field".  You'll now have two groups: "Reminder: Yes" and "Reminder: No".  In the "Yes" group, see if the event giving you the reminder appears.  If so, select it and press Delete.
Brian Reply

Had this problem myself after upgrading to 2010. Was able to solve it easily with this guide, without repairing my PST file:


http://grok.lsu.edu/Article.aspx?articleid=15023


In "Change View" I didn't have "All Appointments" as an option. However, I sele

 )

 

==================================================================

--IMPORTATION SCRIPT FOR sql

Option Compare Database

Option Explicit

Sub importindividualsheet()

' started to mess about with did not finish

'This bit of code is to go through each of the spreadsheets and create the named range based on the number

' of rows in the file

' every file starts on the third line

 

Dim fPath As String

Dim fFile As String

'FileName

Dim strFile As String

'Array

Dim strFileList() As String

'File Number

Dim intFile As Integer

Dim fso As FileSystemObject

Dim f As Variant

Dim fc As Variant

Dim f1 As Variant

Dim fname As String

 

 

 

 

 

fPath = "Y:\Ldn\2014\Weekly\"

'sFile = "IFWeekly 2014-06-09T07_23_39.210Z.xlsx"

 

Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.GetFolder(fPath)

    Set fc = f.Files

   

           DoEvents

           fname = Replace(Left(f1.Name, InStr(f1.Name, ".") - 1), "Sold Fixed Loan Report Weekly", "")

        DoCmd.SetWarnings False

'USING RANGES ALREADY SET

        DoCmd.TransferSpreadsheet acLink, , fname + "|Live", f1.Path, True, "Live"

         DoCmd.TransferSpreadsheet acLink, , fname + "|MML", f1.Path, True, "MML"

       

        DoCmd.SetWarnings True

    End If

    Next f1

End Sub

Sub import()

'Used this on 28 Oct 2015

'Deleted all of the existing links firts

 

'code will link to excel and pull site survey files into access tables

'Setting the path for the directory

' Have to go into the excel files and give the range a name for each of the sheets

'This bit links through each of the excel spreadsheets based on the named ranges

'  You have to go through each sheet and add a name range

' NotMML

'MML

'Live

' Then import each of these into the final table

 

Dim fPath As String

Dim fFile As String

'FileName

Dim strFile As String

'Array

Dim strFileList() As String

'File Number

Dim intFile As Integer

Dim fso As FileSystemObject

Dim f As Variant

Dim fc As Variant

Dim f1 As Variant

Dim fname As String

 

 

'fPath = "Y:\Ldn\Violet\QA\Client Populations\Project Bottle\Bottle Analyser\Import\SOLD\2014\Weekly\"

 

fPath = "Y:\Ldn\Violet\QA\Client Populations\Project Bottle\Data"

 

'sFile = "IF0085_Sold Fixed Loan Report Weekly 2014-06-09T07_23_39.210Z.xlsx"

 

Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.GetFolder(fPath)

    Set fc = f.Files

   For Each f1 In fc

    'Debug.Print f1

    If Right(f1, 5) = ".xlsx" And Left(f1.Name, 3) = "IF0" Then

     ' MsgBox f1.Name

         

           DoEvents

           fname = Replace(Left(f1.Name, InStr(f1.Name, ".") - 1), "Soan Report Weekly", "")

        DoCmd.SetWarnings False

        DoCmd.TransferSpreadsheet acLink, , fname + "|Live", f1.Path, True, "Live"

         DoCmd.TransferSpreadsheet acLink, , fname + "|MML", f1.Path, True, "MML"

          DoCmd.TransferSpreadsheet acLink, , fname + "|NotMML", f1.Path, True, "NotMML"

        DoCmd.SetWarnings True

    End If

    Next f1

End Sub

 

Sub buildqry()

'Some of the tables need to have the ? replaced with nothing in the excel using a search ~? to do so

' some of the tables need to have blanks removed for their BIW column

'1 truncate the table

'2 Run the code

'3 for each table def it does an insert into the database table

 

Dim db As DAO.Database

Dim qdf As DAO.QueryDef

 

Dim strsql As String

Dim sSql As String

Dim i As Integer

 

'Error loading dll currentDB C:\Program Files\Common Files\Microsoft Shared\DAO

Set db = CurrentDb

'DoCmd.RunSQL ("Truncate table dbo.project_sold_import_excel;")

sSql = ""

For i = 0 To db.TableDefs.Count - 1

    If InStr(db.TableDefs(i).Name, "IF0") <> 0 Then

    DoEvents

        sSql = sSql + "Select * from " & CStr(db.TableDefs(i).Name) & " Union All "

       

        sSql = ""

        sSql = sSql + "INSERT INTO dbo_project_sold_import_excel"

        sSql = sSql + "([DataSource],"

                    sSql = sSql + "gtsa_table_source,"

                     sSql = sSql + "client_number,"

                     sSql = sSql + "client_name,"

                                     sSql = sSql + "narrative_1,"

                     sSql = sSql + "narrative_2,"

                     sSql = sSql + "client_type)"

        sSql = sSql + "SELECT '" + db.TableDefs(i).Name + "',"

                sSql = sSql + "a.gtsa_table_source , "

               sSql = sSql + "a.client_number,"

                           sSql = sSql + "a.narrative_1,"

               sSql = sSql + "a.narrative_2,"

        sSql = sSql + "a.client_type"

        sSql = sSql + " FROM  [" + db.TableDefs(i).Name + "] as A;"

        DoCmd.SetWarnings False

        DoCmd.RunSQL (sSql)

Debug.Print db.TableDefs(i).Name

    DoEvents

 

    End If

Next i

        

 

Set db = CurrentDb

'Set qdf = db.CreateQueryDef("aapd", sSql)

MsgBox "Done"

 

End Sub